i") 


ts / HU 


SO 1 0 s 


*; / . i j * 


92 1 0 s 
6200 « 
5 O 


^fivn « 


1 


.■S s' i :> 


1 80 


HUUO 

/■. “r rr r\. 
H fc. b 


A "7 / 


AD9E 
B3DA 
B S 2 0 
BFFE 

AO 00 

H H 4 »» t M 

AOOO 


••••* *f* | ««*M *«H 

r i L b a » 

F I L E 8 n 
FILES, 
F I LE8 , 
F I LEG , 

C5 , 

0 -s 

1 


bi 

OPT 


"FI LER . PAL. 

FT 1 51 

"FILER. PAL 

FT 2 n 

"FILER. PAL 

p y y t * i 

"FILER. PAL 

FT5 51 

"FILER. PAL 

FT 8 " 

"FILER. PAL 

END" 

"FILER. PAL 

S 1 hr 


si 


* 


$A000 


V ]■") ("} n 

A Tt f) A 

CART 

n 

— 

1 

X 

: MAKE 1 FOR CARTR 

H r M . 

.•* .-‘S } <* 

j«* 4 a 

A 000 

JS 

PH i- 

a 1 J. 1m M 1m< 

:s, 11 f 

'I LER. PAL PT 1 " 



; M I CROF 

r I LER 

FT 1 


i 20 s 

A 000 

PF1 


133 

; FUNCTION KEY 1 

*1 ***r 

1 oU s 

A 000 

PP7 


1 36 

; FUNCTION KEY 7 

1 50 s 

A 000 

065 1 0 

mIII 

*00 


1 60 s 

A 000 

R65 1 0 

IMM 

IMM 

*0 1 


1 - * ) * 
•i. <r v » 

A 0 0 0 

WARM 

• MH 

*07 


ISO: 

A 000 

NAMLEN 


$08 


1 90 s 

A 000 

TYPE 


{ $0E 


P f) (") ; 

A0 00 

I NIGER 


$ 1 4 


210s 

A 000 

SWFFLG 

4MM 

$ 1 *7 


"vn - 

.<.« *«* U 

A 000 

F RTF LG 

M.4. 

$18 


T 1 7 O “ 

pAA n 

BUFPTR 

»HM 

^ .r... 


V /X f ) a 

*x-** 1 If 

A0 00 

POINTA 


$22 


250 2 

A0 00 

PO I NTB 


$24 



A 000 

PBGSDT 

““I 

">> xl. b 

;PT BEGIN I NO DATA 

' / 7 ( * •> 

•l... .* *M* 11 

A 000 

F'LSREC 


j-i- p. 

*?'■ A- JLr 

: PT END OF DATA 

280 2 

p a a a 

PFRMPT 

MMt 

$2F 

; PT FORM PRINT DA 

'**.*■' '** v* {“ ■, 
4m. / *•*' P 

A 000 

PBbREL 

*Mm 

$ 3 1 

: P ! FIRST RECuRD 

300 i 

A 000 

prpppr 

! w I *» i v l.m w 

»♦*** 

**. **n* **n* 
*Ji . J* 

5 FT CURRENT RE COR 

3 1 0 2 

A 000 

PO I NTC 

MM- 

MM. 

$3b 


7, ■ > f ) « 

hi l ’-J 5 -J U 

TOP RAM 

M«*4 

***** 

•A. "7* w *f 

J* / 

„ TOP OF RAM 

330: 

AUUU 

AC CUM i 

— 

$6 1 


,j4u 2 

A0 00 

ACCUM2 

— 

/V* / t***t 

$:■ c:> '7 


•:>bu s 

A 000 

STA1 Ub 


$90 


•*•** # 

odU 2 

p As A A 

5 i OPKV 

=::: 

$91 

1* j { f w {*.. Y h \ i -i 

x« W i W I l % u*** 3 f !mm i 1 W 

7fi .. 

‘m . 1 / *M* x: 

A 000 

MSG MOD 


$ 9 D 


■jSU 2 

hi O O O 

TMPEND 


$73 


7 q a » 

Auuu 

TEMP 

— 

$75 


400 s 

A 000 

TEMP 2 

***** 

■mi 

$76 


4 1 0 s 

A 000 

TEMP 3 


.{•• ”•? 
$ / / 


420 2 

A 000 

TEMP4 

***** 

"7 

4' / L”I> 


,*? ***r .**. 

S 

A 0 0 0 

RANGER 

***** 

***** 

$79 


4 4* 0 2 

AO 00 

CUR DEV 

MW 

$BA 

; CURRENT DEVICE 

450 2 

A 000 

BL I KSW 

““ 

$cc 


460 2 

A 000 

NUNC HR 


$C6 


4 / * 11 

A 000 

R EVP LG 


$C7 


4 8 0 !i 

HOOO 

BL I KCH 


$CE 


490: 

.♦*. .**_ .*», 
l ; Si 1 

BL I KON 

***** 

$l-F- 


500 2 

AO 00 

SCNL I N 


$D 1 


D 1 U 2 

A 000 

CQLNUM 


$D3 


S... -J a 

A 000 

QU0T3W 

***** 

$D4 


***** *«*f. .**. 

oou ;; 

A 0 0 0 

L I NNUM 


$D6 


JMM M M 

***f M* * } a 

W J ’m 7 « 

A 000 

I NBRTB 

***** 

***** 

$D8 


• MM MM. M 

55 u 2 

A 000 

WRAP 

***** 

**»>■ 

$D9 


560 s 

A000 

PCCRAM 


$ h 


5 7 O s 

A 000 

ROWCNT 


?oU 


580 2 

HU'JU 

COLCNT 

— 

•4:Q 1 

W J* 


7 Q A «■ 

A 000 

CF I ELD 


{>:: i'“ “O 
•£• w x.. 



T T"? T- “ 

**• A*«" *“•••* ■»»« » 


A s' ”': M « 

W *•** it 

! SI H 1 

CFDLEN 


*aj>« bt* *• 

•v* u; 



6 i 0 £ 

h 0 0 0 

TEMPFL 


. ..... ~ 

;<:> P Jb 



620 2 

:*.*4 i if <2 j 
* 1 V •*.’ *-* 

CHANGE 


■iFf) 

**• 4 W*t‘ 



. •*•»• .•*. 
Ov-U £ 

A 000 

SC MODE 


t-FE 



6 4 0 2 

Auuu 

MESGFL 


$FF 



660 2 

A 000 

I NPBUF 

ini. 

^0200 



A "7 C) « 

A 0 0 0 

MENS I Z 

— — 

$0283 



U.* t’ n 
w '.../ -J a 

A 000 

C COL OR 


$U286 



2 Q f~« v 

O 7 U L 

A 000 

UHRBKG 

::r 

U O / 



”7 !"-t tt 
i VV D 

A 000 

r 1 i b R P b 

zr 

$0288 



.1 t**. 

7 1 U £ 

A 000 

REPEAT 

zr 

si- ,**v .*n r*j 

P -J .,L Cj t-1 



720 2 

A O O O 

NM I VEC 

•4*44 

-± T 1 p 



/ 40 2 

A 000 

BGhREA 

It 

m«* 

$0400 


5 BEGIN OF RAM 

7 60 

A 000 

»1 

NCHRST 

zzz 

$C000 


3 NEW CHAR SET 

“7 "7 A i' 
* / « 

A 000 

SCREEN 


$0800 



7 h n « 

A n n a 

8 WRAP A 

ii 


$CC00 


; SWAP AREA - C H R S E T 

BOO 2 

A 000 

MAXFLD 


$CFOO 



8 1 0 £ 

A 000 

RECLEN 


fCFOl 



R A « 

A 000 

FLDTBL 

If 

inn 

$Lr U / 



840 2 

pf A A A 

ff 

TMPARA 


$ C 1 cu 


; TEMP FILE NAME 

t«*i ***** rt 

****** **". ; r ^ »j 

U it 

Pi r" ) ;“i A 

F I LN AM 

it 


4 4**4 4*44* 4*444 44 

$UF- LU 


; NORM FILE NAME 

B / U 2 

A 000 

h 

UHRSE i 


$D 000 


5 NORMAL CHAR SET 

dd o £ 

Pi Q A A 

SOUND 


$-D400 



B90 2 

A 000 

COL ORE 


fDBoo 



Wf !!]«•• 

4* ’•** *** 7 ft 

H U U U 

v 1 U b b L 

4444* 

$DDU0 



•**4 ***• «* 

W XI ! « 

-• 4^. i; 

A 000 

\j j npn 

•44*4 

444*4 

$D 000 



9dU 2 

A 000 

V I CMDD 

*44*4 

4*4*4 

$D 0 1 i 



940 £ 

A 0 0 0 

SFR I TE 

44*4* 

$D0 1 5 



PSA «* 
*• %*** %♦* » 

A 0 0 0 

V I CM CM 

*4444 

$DU 1 6 



***■ • •* 
Y 6 U £ 

A 000 

V I CSCN 

444«* 
*« »»■ 

$D0 1 8 



970- 

H U U *• J 

V I OMSK 

***** 

$D0 1 A 



Q R A « 

A000 

BDRCLR 


&DOUO 

**a i*.' *.♦* *S*4. V f 



•**« **•» ** 
w v i * * 

A 000 

?‘V l S !*“« 

DKbia/LK 

..... 

*D021 



1 0 i 0 2 

i’-i U U ‘J 

H 

BL I R R f 

:::n 

$EA i 3 

n 

M 

RE PL AC CHAR / CRSR 

1 0 P ! ") n 

**• *** *•••- 'm* I* 

A 000 

SYNCOL 

— 

*-EA24 



1 OoU 2 

A 000 

SETSCN 

rz 

.«* j*’*’ r*J # / r M , 

11 

fl 

SET SCREEN POINTER 

1 040 £ 

A 000 

RES VIC 

z:z 

$b5Au 

tt 

;< 

RESET VIC CHIP 

1 050 2 

A 000 

SCROUT 

4**44 

4>b / 1 P 



1 060 £ 

A 000 

DEL 1 MS 

zz: 

$E£B3 



1 070 2 

A 000 

^44*4 «*j** * 4 ***** * a 

1.3 P. i KE T 


f?F 1 42 

71 

ii 

SET CHAR KEYBOARD 

i 080 £ 

A 000 

NM I OLD 

:zz 

f-FE47 



1 090 2 

A 000 

1 0 1 N I T 


$FF84 



i i oo £ 

A 000 

REST OR 

zz: 

$FF 8 A 



111 0 3 

A 000 

ACFTR 

***** 

***** 

$FFA5 



j 120 " 

A s ”’ 1 a a 

UNL I SN 

»4-*» 

***** 

$FFAE 



1 1 30 2 

A 000 

L I STEM 


$FFB 1 



i 1 40 £ 

A 000 

READST 

— 

$FFB7 



1 J 50 ; 

Auuu 

SETLFS 

mu 

$FFBA 



1 1 60 £ 

A 000 

SE IN AM 

zz: 

$FFBD 



1 170 2 

A 000 

OPEN 

«... 

|” p UU 



1 1 80 £ 

A 000 

f- j pi r~- r~ 

b L U p b 

***** 

$h r UP 



1 1 90 2 

AUUU 

CHK I N 

zz: 

"<:■ r r L 6 



1 200 2 

AO 00 

CHKOUT 

— 

f.FFC9 



1 P 1 O » 

4. .2. *** 7 If 

A 000 

CLRCHN 

**♦♦• 

$FFCC 



, ^*** *.♦*. H. 

1 i 1 « 

4* 4m .i*.- V If 

A 000 

CHR I N 

***** 

t’v* !***" ?'“* 

3 >r r L..-r‘ 



4 ,“ ,, I — f “* 

IbbUS 

A 000 

OUTPUT 

z:z 

. 4*4 t-*** p* ‘ 7**. 

dr r UmL 



i A4 u £ 

i"i : U O 

LOADRM 

“ 

$FFD5 



1 P‘SO" 

J. *4... W '*** u 

AUUU 

S A VERM 

***** 

$FFDS 




>1 -**n ; 

1 s * 5 

»if MM *M* IX 


1 2 / V ; 

1 2 SO L’ 
i 290 s 


fiUUU 

A 000 
A 000 
A 000 


STOP 

— 

%>r 

F 

BE ! 1 N 


s F 

F 

L- L. H L.. L 

"t; 

$F 

P 

PLOT 

Zlll 

r* 

p 


RECORD FILE FORMAT 


F'BGSD 


POINTER TO BEGIN OF 
SCREEN DATA 

- DATA ENDS WITH 00 00 


NEXT BYTE 
NEXT BYTES 


NUMBER OF 
RECORD LE 


F I ELDS 
6TH LB/HB 


Pl-PMpT : 

; i i t, t i v i 


h'BbREC 


PL SR EC 


= POINTER TO BEGIN OF 
FORM PRINT DATA 
(SEE PT2 FOR DEFINIT) 

= POINTER TO BEGIN OF 
RECORDS 

.... FIRST BYTE IS A 00 


POINTER TO A ZERO 
BYTE PAST THE END 
THE LAST RECORD 


JNE 

OF 


FIELD DATA 

r**«* **••• *••*• *•*•* •*»•» •»•*• ***** •***> ***** *»»» * mm* ***M ••*•• •**♦» •*•*» MM* IMM HIM IMM *M*I MM* ***** ***** iMM *M*I IM*. . 

(DATA SET UP IN SCRNPT WHEN 
MAXFLD BIT 7 IS LOW) 


MAXFLD 

RECLDN 


= # OF FIELDS IN RECORD 
= RECORD LENGTH LB/HB 


FLDTBL 


LENGTH 


# OF FIELDS 


tt 

? 

A 

ND 

n 

R 

BITS 

0 

a 

? 

-• BITS 

fL 

W 

it 

P 

10 

ii 

n 

1 1 

- r . 


= EACH BYTE GIVES LENGTH 
AND TYPE OF FIELD 
BITS 0--5 = LENGTH 


1 730 s 

} i, ’ £ . } 

U 4 

AO 

POWRUP 

h W U R D P R E S E T 

1 740 s 

Lit f } A V 


A O 

NM I TST 

. WORDSTAR!' 

•! r ,**. 

1 / OU E 

A 004 

H 7 

00 

pperqir r 

LDA 

#0 

1 / 7 U s 

A 0 0 6 

QC 

07 


ST A 

WARM 

1 7 SO s 

AOub 

r-,cr 

O w 

08 


! H 

NAMLEN 

1 790 s 

f “i t--j 

ri 9 

00 


LDA 

#< BGAREA 

1 800 e 

AOOC 

AO 

0 4 


LDY 

# B b A H A 

1 8 1 0 s 

AOOE 

5”!' 

C5 w 

2 B 


f***. *“.“ ^ 

o 1 H 

F'BGSDT 

1 S 2 0 « 

Lit O 1 A| 

o 

L) ■ s ”r 

aL Lm* 


STY 

FBGSDT+ 1 

1 830 s 

HU 1 2 

Cl* 7 
CJ _J 

0’ 1 


ST A 

PBGREC 

1 840 e 

AO 1 4 

t**"s 

OH* 

**;t* ,•*••{ 
W 4 h. 


STY 

PBGREC"*- 1 

1 850 s 

AO 1 6 

80 

2D 


STA 

P LSREC 

i860: 

AO i 8 

S4 

“P 

4m* I*.** 


S TY 

RLSREC+ 1 

1 p7f) « 

j* t**.* / v n 

AO 1 A 

H 7 

00 


LDA 

#0 

1880s 

A u i 0 

AO 

AO 


LDY 

#$A0 

1 890 s 

AO 1 E 

85 

3 / 


***** f, 

Z) 1 H 

TOPRAM 

1900s 

A 020 

b 4 

,** m j 

•1* Q 


STY 

T0PRAM+ 1 


5 NO FILE IN RAM 
; ZERO NAME 


£1 







^ '*,a» | r *» Jaaj’ j • J *•••" lV| 

»l w 1 i — 1 1 \ 2 Ui i i 

fc 

r ~ k j 5 | 

hN Lf 


I Q4A » 

.£# *' T *«• «t 

H O 2 2 

D 8 



H 

START CLD 

rx 

[\ 

CLEAR DECIMAL MODE 

1950; 

n ,***\ **t 

H U aC %o* 

20 

•«a*» a. a*. 

1::. / 

»**»* fM*. 

r i”’ 

JSF ; : 

C L A L L 


1 960 ; 

A026 

0 

a*»* •* 


B9 

*V I* M * 

J or. 

NEWCHR 

; MOVE Sc MAKE CHRSET 

•5 "T 

i 9 / O s 

AA-7‘9 

.MM m 

2u 

O B 

B9 

JSR 

SET V I D 

; SETUP VIDEO 

1 98U a 

A02C 

0 
r-i T 

80 


L..DA 

#$80 


1 9 9 O t 

A02E 

BD 

mm aa_ 

O n 

.♦*. .**n 

5 . 3 *• 

**» * ... •• 

6' 1 i : "S 

REPEAT 

; FULL REPEAT ON 

2000 : 

AO 3 1 

dD 

00 

MM JM*. 

CF 

ST A 

MAXFLD 

; CANCEL FIELD SETUP 

1 o «= 

•u *..* a. v tx 

AO 34 

8 5 

* i.i- 
* 


3 i A 

POINTS 

; PART OF DESTROY 

r*, .•*, .****, ,•*, 

2020 s 

A036 

j\ f- 
r‘i 

01 


LDX 

# .1. 


V «”‘i "T {*; » 

Om. V* *«** *a. r It 

A0 38 

/•-. /! 
^•af 1 m». 

“T C ‘z 
. -t r-\ 

M* *M* 


5 nv 

1mm Ju* 1 

T0PRAM+ 1 


r*. n 

.* ! !.clS j « 
a.H r M 

H O 0« H 

94 

*™t tI!T 

a’ J 

4m« mm 


mm ■ .... a a 

0 1 Y 

Is 

PO I NTEh- 1 


2060 : 

Ao3C 




H 

3 IF 

»• 

CART- 1 


2080 s 

A03C 

■*“ 

4m. *m* 

AB 

Q Q 

Am / 

•* 

JSR 

It 

CDPYBK 

; TRY TO DESTROY ROM 

v 1 oo - 

4m. 4. -~* -m* a 

h O 2 * r 

H V 

nv 

Am’ am 


*1 

LDA 

#< SC DAT A 


MM * • M 

1 in *• 

4m. 4- 4. *M r q 

A0 4 1 

A0 

BD 


LDY 

# .J'iiUDrt 1 tt 


1 . - 1 j w 

4*»» 4* 4m« m if 

.**. .n “i* 

HU4c< 

Ut!‘ 

O %J 

24 


M*M M 

O 1 H 

POINTS 


2 I j»0 £ 

A0 4 5 

84 

i::r 


.“**. •*!** •. ; 
aaa. 4 V* 

W i 3 

PO I NTB+ 1 


*7 : 1 ZLA « 

A ! V U 

nU4 / 

A 9 

00 


LDA 

#0 


V 1 *=$ f) « 

a. *-* it 

A 04 9 

Q 

O wJ 

FE 


ST A 

SC MODE 


MM * » M_ 

V ; Ai ) » 

4m. 4* 'm^ 4 

A04B 

85 

*f*\ 

*— y i i 

^ maa! 4 


STA 

MSGMOD 

;; NU nt'DOHbc.b 

MM a •*.- M 

7 / f j » 

4m. 4. / V 11 

A04D 

X -J 

0 1 

tp*. /t 

b4 

JSR 

oL-h.N 

; PR I NT SCREEN MAIN 

"7 { ] p t f) it 

ul.. a. ! mm ! ‘‘m* tt 

mUjU 

“ f) 

ataaa ‘m* 

”7 

M / 

B5 

LOOP JSR 

it 

GE 1 CHR 


"2 "7* f” 1 1 u 

.l~ y... *•..• t 

A0 5 3 




tt 

t> .1. 1 

CART 


y* l. H. 3 " 

4t.i ■!••• ‘m* 11 

A 053 




u GOT 

fiVVAf) 

•att a... 4taa Mat* ta * 


i 3 « 

4». .U U 

M O -.J -2* 

C9 

3 1 


MENU0 CMP 

#" 1 M 


v v "7 i ’) >« 

a*** r a 

M < M ...ft Htt* 

HUjj 

DO 

13 


BNE 

MENU 1 


.***♦, .**n r*\ ,*♦, 

ZZdU S 

s\ { '\ cr — r 
hi -.J / 

20 

F4 

B5 

JSR 

S C R C L. h< 


2"9o !! 

AU5A 

20 

02 

Bv 

MENU01 JSR 

SNAP 

5 NORM CHRSET IN 

.*•. 

n 

mo5D 

*7> 

t a* 1 , a 

i“i B 

B4 

JSR 

DES I SN 

; DESIGN SCREEN 

1 f”) >» 

4 .m a. *«• t« 

AO<bO 

B0 

p C) 


BCS 

5 1 hR 1 

• {**** •**•* a 

»l ♦*’ Lm / 

t$ **. 1 / 

.**•*. ***r 

2 o 2 u ;; 

H U 0 ..2 

2 0 

..... ™,. 

/ 

B 6 

JSR 

ANALYZE 


7> 2 T n =« 

a*,, ’m.* 'm 1 a 

A . ” •] aL cr 

B0 

J**M M«^* 

r 0 > 


b L- 0 

MENUO 1 


2 .:4u s 

A O <D / 

4C 

EB 

/\ * 7 * 

H - 2 « 

JMP 

OPT I ON 


“V nr j"-j „ 

4m* "•4** *MM *M* W 

A 06 A 

f •“ Q 
U.' * 

90 


MENUl CMP 

# 1 44- 

3 CTRL ■ n 1 

.♦♦**, **n* a* .**. 

S 

A06C 

DO 

0 D 


BNE 

MENU 2 


V ' ! 1 / - f 3 “ 

a... 'm . 1 .* tt 

A06E 

MJ 

07 


LDA 

WARM 


T’TQA it 

.U ‘m. 1 Laa* *«■* It 

A 070 

F 0 

DE 


B E Q 

L 0 0 

; NO DATA YET 

/**♦. ***** .****. 
a... w* / m 

A0 7 2 

20 

F4 

B5 

JSR 

SCRCLR 


*M* *• - M 

>‘400 ; 

A 075 

20 

E7 

■ n ■ ■ a* 

T.2‘ T 

J SR 

SCRNP i 


241 0 ; 

A 07 8 

4C 

mM» M 
*■». • • 

JM 

HO 

J MR 

MENUO 1 

3 GO DESIGN SCREEN 

‘ 2 .cL i 'j » r 

»ln» 1 4w. ’•*’ 11 

A0 7 B 

ro 

w / 

.****, 
•J* alU* 


MENU 2 CMP 

# ” 2 ,] 


MM M *MM M 

z4oU 2 

A 07 1) 

T“ t t~\ 
U -J 

** .* 
Uo 


BNE 

MENU 3 


2440 s 

A07F 

20 

rn 

*7 -2* 

A 0 1 

J SR 

L U U m t H 

3 LOAD DATA 

2450 s 

A 082 

40 

MM» mm 

b. Jd 

A3 

JMP 

OPT I ON 


2460 1 

A OS 5 

C9 

***** **n* 
.Ji .Ji 


MENU 3 CMP 

# n 3 n 


2470s 

HUq / 

DO 

C.* / 


BNE 

LOOP 


248U u 

A 089 

/•-. i::r 
}•“} %J 

07 


L_ D H 

WARM 


2490 s 

A0 SB 

p („3 

03 


E'- E Q 

LOOP 

3 NO DATA YET 

2500 s 

A O 8 D 

(”3 

F4 

B5 

JSR 

SCRCLR 


25 1 0 s 

A 090 

4C 

P* p 

A i.' 

JMP 

it 

OPT I NO 







tt 

; ROUTINE TO 

•j 

LOAD RAM 


, K. , 3 

4*. w* w a 

Au93 

20 

F4 

MM. M«M 

T 1 im 

b -_j 

H 

LDiJR i h J oR 

SCRCLR 


2560 s 

A0 9 6 

vn 

4m» *m 

05 

A i 
hi X 

LDDAT0 JSR 

GETFN 

; GET FILE NAME 

9=570 “ 

4m. W .* « 

A 099 

90 

03 


pm 

LDDAT1 

3 ’C SET ON <F7> 

2580 s 

3 ", .*•* .****. V". 

A'J9I”j 

4C 

all., atlm 

H O 

JMP 

START 


•■ 7 * CT Q n 

jL. ’»J ’«* a 

Ao9E 

A 9 

00 


LDDA f 1 LDA 

#0 

3 MAKE INCORRECT 

* ! r.i if 1 * 

4m. W V *M* « 

I...': i, ! j4.j f 1 

H U 

O 2 


LDY 

#2 

; DATA GIVE BLANK SC 

. J Am 1 f J n 
aim L.* 1 a. *»■ it 

m J - J ! h 

Q ! 

.* a- 

“<D 

4.M Am* 


* T“i ?“ A "T‘ -“**1 p*. **r- r. 

L- IJ M ? ..2 O 1 H 

< PBGSDT ) u 

Y 


• * -* » I ^ 

•w w .i— r. 

*•. .**. .**. n 
j'—J O h”i *•}• 

88 





DE y 


r— m . t **T 

4*** U; %•#* •**• si 

A0 A 5 

10 

**♦.* M— . 

F B 




9PL 

t ?*'-, r*-, a T 
bJOjUri ! m 2 

2640 £ 

A O A 7 

R m2 

•ul* 1 




LDX 

#33 LOADING... 

•■*♦* • ***** 4* 

AoA9 

70 

4*.. *«* 

r» p 
JbU 

99 



■J b R 

MESS AG 

*♦*- f » — 

Z 660 £ 

AO AC 

MM *« 

30 

0 7 

f* ***** 

H -3 



JSF: 

D S K T S T : D R 1 V E H 0 OK E D 

O 4.. *T A H 
4.. V... 1 •* tl 

hi O hi f” 

** 

H 3 

08 




LDX 

#8 ; DEVICE NUMBER 

2600 £ 

A OB 1 

••Mr •• 

Q i l 

* *M* 

03 




BCC 

L 0 D I T i ; ? C C L E A R I F Y E S 

2690 » 

A O B 3 

f***. .*♦. 

30 

!**•• ***** 
r* -3 

M M 

H l -J 



JSF: 

S E T T A P ; S E T U P F 0 R T A P E 

2700 £ 

AOB 6 

A 9 

0 1 


L0DIT1 

LDA 

# 1 

v "7 1 r i •> 

4*** 4* *«* It 

A0B8 

M O 

0 1 




LDY 

# 1 

• .- 3 7 - 1 ( ) K 

4t»- • *5*** **• 15 

A0BA 

20 

B A 

FF 



JSR 

b b. 1 i.„. r o 

»••* >••** >m* »• 

3 / oU ;i 

AGED 

Bb 

08 




LDA 

NAMLEN 

***> ***** «* 

*• / t } » 

AOBF 

H xi 

EO 




LDX 

#< F I LN AM 

“•*' i”" 

? L “i i i “ 

4*** -* m«w* **.* t# 

Aul i 

H O 

CF 




L„ U t 

# >F I LNAM 

M»* • 4 **_ 

m2 / 60 £ 

HUb-3 

2 0 

B D 

FF 



JSR 

SET NAM 

r ?77f) « 

m 2 / ! '-J a 

A DC 6 

A 9 

00 




LDA 

#0 ;; LOAD 

2780s 

A0C8 

20 

D5 

***** £•*•* 
r T 



JSF'; 

LOADRM : GO LOAD RAM 

?7QO » 

AOoB 

A 9 

00 




LDA 

#0 

2800 s 

AOCD 

85 

9 D 




ST A 

M S G M 0 D : M E S S AGES 0 F F 

9P 1 n « 

A OCR 

PO 

Am* U* 

OC 




dLo 

LODERR ; ’ C SET ON ERROR 

?qvn - 

AOD 1 

8 6 

r\ 
*2 U 




STX 

PL SR EC ; SAVE NEW END 

"" Q T fi « 

A0D3 

84 

2 E 




STY 

PL SR EC + 1 

2340: 

AOD 5 

A 8 





•*r A v/ 

! hi Y 


2850 s 

A O D 6 

"/ J. 

2 D 




C5 f H 

<PLSREC),Y 5 PUT -0 AT END 

v jp| A T i « 

4*-* W •-* tl 

AOD 8 

C a 

!**m»m*j 

07 




I NC 

WARM ; SOMETHING IN 

‘“7' C5 “7 j 1 ”'; u 

m 2 / -J a 

AO DA 

4C 

t:. B 

A3 



J MR 

OPT I ON 

2890: 

A ODD 

20 

07 

A -3 

11 

LCD 

ERR 

JSR 

D S K T S T ; T E S T F 0 R D R I V E 

?Qnn » 

.u. ** V* V* R 

m O E O 

Bo 

09 




r*l :*“** c 
JD ***** ***** 

L0DIT2 ; NOT DISK 

?9 1 o » 

A0E2 

7 O 

J*M V 

8 F 

A ‘**7* 

r i 4 m* 



J SR 

DSKERR ; TEST ERROR 

v Q v O >= 

AoEd 

20 

E 6 

8 m 2 



JSR 

P R T E F: R ; PRINT E R R 0 R 

2930 s 

ROEd 

4 L.- 

96 

AO 



JMP 

LDDh i u 

2940 s 

A 0 EB 

HZ 

IB 


LCD I T 2 

LDX 

#27 

2950 s 

A 0 ED 

7 

4**» '•*" 

BC 

B9 



JSR 

MESS AG ; ’ LOAD ERROR.... 

2960 s 

AOFO 

4C 

96 

A O 

n 

? 


JMP 

LDDATO 






a 

H 

ROUTINE TG 

SETUP FOR TAPE 






ti 

*1 

LOAD 

Ht* ** J } ***** 

b A v E 

» ETC. 

30 1 0 s 

A OF 3 

A 9 

CO 


S 

C- d* T 
u„. i 

TAP 

LDA 

#*C0 ; ENABLE ALL MESGS 

3020 s 

hof a 

85 

9D 




b ‘ hi 

MSGMOD 

•**^> r* ***** •* 

s 

M U F / 

2 0 

3B 

B <b 



JSR 

ARACLR ; CLEAR SCREEN AREA 

*®*r .♦*. ft .**. 

•oUm-U S 

AGFA 

A 

hi 

03 




LDX 

#3 ; POSITION CRSR 

■ ■*** M JMM 4 ** 4 

.jUDU S 

AOFC 

AO 

00 




LDY 

# 0 

3060 s 

AOFE 

•i rn 
i O 





CLC 


“i* •*"? *••* 

.30 / o s 

AOFF 

20 

P’ l ‘i 

FF 



JSR 

PLOT 

7080 ” 

A 1 02 

hi m2 

0 1 




LDX 

#1 : DEVICE NUMBER 

3 0 9 0 s 

A 1 04 

60 





R t o 







w 

» 

ROUT 

INE TC3 

GET FILE OR DISK NAME 

3 1 30 s 

A 1 05 

A 2 

15 


£ 

MM ***** ***** 

H b. i 

FN 


#21 ; ’FILE NAME... 

3 1 40 s 

A i o / 

20 

BC 

B9 



JSR 

MESS AG 

3 1 50 2 

A I OA 

A 9 

10 


•••• j**«* ***** 

be i 

WPF 

LDA 

#18 sWP FILE ENTRY 

3 1 60 s 

A 1 OC 

85 

FB 


b E I F N V 

S 1 A 

T E M P F L : S A V E L E N GTH 

3170: 

A 1 OE 

A 9 

•7 i"'.' 


T* r~+* -t* 4 

bL 1 

Fo 

i r j £k 

Im«* 4 .i* 2 I 

#159 ; SET CRSR COLOR 

3 i 80 : 

A 1 1 0 

m2 O 

76 

B5 



• 1 8R 

w w * i 

EDOUT 

7 1 QO - 

A 1 1 3 

AO 

OB 




LDY 

#n 

• *»f* MM M ( M 

•3*2 00 s 

A1 15 

A 6 

08 




LDX 

NAMLEN ; GET PREV NAME LENi 

7 7 1 O a 

A1 17 

FO 

20 




be a 

GET F N 1 ; N 0 - P R E V N A M E 

*T “7 f“i » 

m 2 V i: 

Mil 9 

A 5 

FB 




LDA 

TEMPFL ; GET MAX LENGTH 

•2' xi. -3 O I! 

A 1 1 B 

P9 

1 3 




CMP 

#19 ; IS IT ’DI SK NAME ’ 

7 7 4 , ‘"‘ I r - 

A 1 1 D 

F U 

1 A 




BEQ 

G E T F N 1 ; YE S - N 0 P R E V N A M E 

T r> tr n 

•_. : m 2 w •„■ a 

A 1 1 F 

A2 

00 




LDX 

#0 

7760 * 

*u* w? v n 

A 1 2 i 

HO 

ij H 




LDY 

#11 

~*r ' .* : { 'j a 

. : •: •• u 

r. >j r**. ”7 

hi J. xl. -3> 

1 o 





CLC 



”T ™ p f") t. 

w .u*. W •-* n 

•X i *“*, .-1 

hi x jL *t 

MM M 

n 

.1m. *m* 

F0 

j... p 


J SR 

F LO i 



“■pQO » 

4 ... / ;i 

}”1 i xl. / 

A 2 

00 



LDX 

#0 



♦**• •~r ,♦*. .**, 

■jj'JU £ 

A 1 v 6 

BD 

F0 

CF 

GETF 

LDA 

F I LNAM , 

X 


66 1 0 2 

A 1 r?r 

t ! X 4m w 

20 

1 6 

L 7 


JSF: 

SC ROUT 



‘ S + "“= f) n 

A -i nr 
H 1 .ui. r 

E8 




I N X 




..... «... •••!• 

A 1 30 

6 4 

08 



CPX 

NAMLEN 



6 640 s 

H i -6.6 

D O 

PF 

I w 



BNE 

bt i i- 



•mt nm tt»* . .. 

.ji.jj'J 2 

A ■* ”7 /I 

M J. •...’>9 

o A 




T X A 




3360 s 

at . ..if. |.i.a 

H 1 6 6 

i o 

X w 




CLC 




•m* w»y •* 

% % ; :' j a 

*-.»*...» / V a 

A .1 *^f f 

ri 1 66 

/ r*. 
07 

0B 



A D C 

# 1 1 



6 6 c.j O 2 

A •! “T r*: 
hi X *6 O 

AS 




I A V 





A 1 39 

A ^ 

hi j.’.. 

00 


GETFNl 

i T“i X 

#0 



3400 2 

A 1 3B 

18 




CLC 




3410s 

A 1 3C 

20 

F 

■ MM M.M 

r H 


•JSR 

PLOT 



**T /t .*«*. 

•, XL .- 1 ! I « 
T .t m v n 

A 1 3F 

A i*“i 

hi 7 

00 


FI LG TO 

| T*\ A 

i™. U A 

#0 



*— t* ,i -**1* ,**. 

6460 s 

A141 

85 

cc 



ST A 

BL I KSW 


sCRSF; BLINK ON 

o44u 

A •! A "T 

hi I *r*6 

20 

A ”■>■ 
hi / 

B5 

h 1 L G E 1 

JSR 

GET Chi R 



64 bu s 

A 1 4 6 

A 6 

FF 



LDX 

ME 8 b!- L 


5 CHECK ERROR CL 

3460 2 

A 1 48 

F0 

n q 

V* a* 



BEQ 

FI LGT 1 


; NO-CONT I NUE 

3470 s 

A 1 4 A 

4 8 




PH A 


a 

SAVE KEY PRESS 

3 4 SO s 

A 1 4b 

20 

0B 

H C”> 


J8R 

CL E ARB 



3490 s 

A14E 

6 b 




FLA 


it 

bE: 1 KEY h RE 88 

“S ~ r { f “i (') “ 
*— 1 v v a 

4i 1 4 F 

A '**"$ 

H .6 

00 



LDX 

#0 


; CANCEL ERROR ( 

35 1 0 s 

A 1 5 i 

86 

FF 



STX 

MESGFL 



..... tm. tm .* 

•«.* Um. *..* 11 

A 1 66 

C9 

88 


F I LGT 1 

CMP 

#PF7 


i; .* I... i 

I( *. 1 a** a* 

m*. «... ».t» *. 

6 5 O' O 2 

i tzr tr 
H J. •„ J w 

DO 

02 



BNE 

F I LO 



3540 s 

a i^r ”7 

H i *M.j / 

38 




SEC 


«? 

SET FLAG & RETUi : 

6550 s 

A 158 

60 




RTS 




3560 s 

A 159 

C 9 

0D 


F I L0 

CMP 

#13 


2 RETURN 

3570 s 

A 1 Db 

F 0 

7 6 



B 1::. Uf 

F I L.D0N 



«... MH» .... .1 

•r «>". f ‘i n 

■_> 6 w u 

r, .r t^* v*** 

h 1 5D 

C9 

14 



CMP 

#20 


2 DELL 1 E 

3590 s 

M 1 MM. MM. 

A 1 5F- 

F r 0 

58 



o b. y 

M.a- M* | -M. I**** % 

r J. ul/bu 



— ... * .* » 

6 - s ' )( i * 

A 1 6 1 

A 6 

FB 



i n v 

TEMPFL 


; D I RORY IN FILL 

66 1 O 2 

A 163 

E0 

1 0 



CPX 

# i 6 



• ••*« * Mtl •• 

*. 6. t j E 

99*9 «»• * It 

A 1 65 

DO 

Hi 



BNE 

F T 1 i 

a .1. laaaa al. 



3630 2 

A 1 6 / 

r* ““s 
: . *7 

***V J— ’ 

. *t r* 

M* ‘ 



CMP 

# n 7 n 


; DO DIRECTORY 

3640 s 

A 1 6 V 

DO 

0B 



BNE 

F I L 0 1 



7 A.. **”. 5 » 

O 6 a 

A 1 6B 

20 

M — ... 

«; ) f 

.**. “J1* 

A *6 


J SR 

DSKTST 



3660 s 

A 1 6E 

Bo 

1 5 



BCS 

r - ' i L... V 


2 NO DISK DRIVE 

3670 2 

A 1 / -• 5 

/(“i 

4.*. M* 

DB 

A -i 
hi ± 


JSR 

D I RORY 


2 DO DIRECTORY 

3680 s 

J* 4 . .1 ***v ***f 

hi 1 / -6 

4C 

0E 

A i 
hi 1 


JMP 

bE ! F O 



66 90 2 

A i “7 6 
hn 1 / 6 

C9 

06 


F I L0 1 

CMP 

#6 

a 

a 

< CTRL >F 

3700 2 

/*-. •? “*r o 
hi X / O 

DO 

•5 ”I r 

i *.m‘» 



BNE 

F I L 1 



37 1 0 s 

i"i J. / hi 

20 

«“> 7 

r., ***v 

H -J’ 1 


J SF; 

DSR t S ! 



*T “7 ~ M «* 

'«* * V « 

hi i / U 

B0 

ij 6 



..a* nn ..a. 

bCS 

F T 1 02 

. alt aa... *aa* ttm 


2 NO DISK 

"7 i~\ « 

•«.* * 'm 1 '«• *t 

A 4 “7 r*** 

hi 1 / r 

20 

5 A 

A "h 


J SR 

FOMQES 


5 GO FORMAT DISi 

3 740 s 

#* . Mm *• .* 

/% *| t a * i 

A .l Ox 

4C 

05 

A 1 


JMP 

GETFN 



MM. ..... ..... .. 

X / ““ 3 i a 
V - -MM* *M* a 

hi I CO -6 

A •“** 
hi x. 

i p 

X w 


F I L02 

LDX 

#28 

a 

H 

’DISK DRIVE NOT 

***** *"V 

•6 / 6 O 2 

A 187 

.** f ,s 

4*m *m* 

BC 

B9 


J H R 

MESS AG 



■*“* ““f “*•.* 

*. ,* .* t t a 

•m. s / / *-* a 

A 1 b'A 

4C 

0E 

A 1 


JMP 

tttt tMM M.M t*.t. M 

GE1 F U 



**•?* «« 

•«;* / bv 1; 

A 1 8u 

rp 

w J 

9D 


F I L 1 

CMP 

#157 


; CRSR LEF i 

**t*~f »M* M 

' : i W£ '{ a 

’m* ; f V *1 

A 1 8F 

F“ O 

Q 



BEQ 

F I LDEL 



3800 s 

A191 

A 

Hb 

08 



LDX 

NAMLEN 



38 i 0 s 

A ) Q6 

F0 

04 



r\ r~ n 
DC.U 

jr t i 6 

1 ti. I.a«. .I.a. 



o* 6 6 u s 

A i Oc: 
hi X V -6 

C9 

atM* 



CMP 

# l * U 


; SPACE OK AFT 1 

7D7n 3 

O » 

A 197 

F 0 

10 



BEQ 

F I LF'RT 



*•*. M M 

6 b 40 s 

A 1 99 

C 9 

™l 

.6 D 


F I L2 

CMP 

^ 1 1 — n 



6o50 2 

A 1 9B 

90 

A 6 



BCC 

F I LGET 



■6 6 ci.' 2 

A 1 “/ D 

u 9 

..; r - 
OH 



CMP 

Q u „ il 


2 ? 9+1 

MM. ..... IMM •• 

68 / 0 2 

A.1.9F 

90 

08 



Am* Mat* 

F I LF’RT 



3880 s 

A 1 A 1 

eaaa law 

i. ;9 

41 



CMP 

# ” A n 



3890 s 

A j. A 6 

9 0 

9 E::. 



BCC 

F I LGET 



***** .•*". .**. 
W Hi ! “ 

A i A £i‘-‘ 

A x hi 6 

““ r ,M : 

t **} 

5 B 



CMP 

# u l n 


2 ? Z + 1 

39 1 0 s 

A *3 a ~ r 

Hi x hi / 

B0 

i*”’; A 

T hi 



& C b 

F I LGET 



3920 2 

• _M_ MM^ 

f-i 1 H7 

.**. ? 
A 6 

Uo 


FILF’RT 

LDX 

NAMLEN 


; NUM CHAR 

MM. MM .»* 

. . •: 5 / f: 

A i ro 

i—i i I t 

F4 

j,.. j.... 



n p x 

TEMPFL 


: TEST MAX CHAR 


CLEAR 


MODE 


6 V .d. j i ;; 

• < •# <1 

hi X HU 

F“ u 

•7 4 



B iLL Q 

1“ X Lbc 1 

•x* -7 jO 2 

A 1 AF r 

■7 D 

ElO 

CF :r 


..... ..... .... 
0 1 R 

F I LNAM , X 

3960 !! 

A 1 B2 

/I ! 

a... *»• 

76 

B 6 


•v /••*. p 

qK 

EDOUT 

5 9 *7 c\ «= 

A IBS 

F6 

08 



I NC 

NAMLEN 

3980 2 

.*"** i Y“.**7 
1 1 *** *w •• 

DO 

14 


n 

a. 

BNE 

FILL D N ; G 0 G E T N E X T A L W A Y S 

4000 2 

AlBV 

R6 

D3 


(••• j j f i (*•■ ! 

LDX 

CDL.NUM 

401 0 £ 

A t BB 

EO 

OB 



CF* X 

# 1 1 

4020 2 

A1BD 

FO 

84 



BtU 

FILGET 

4030 2 

A 1 BF 

V l") 

4«m >• 4 

•**r /***. 

/ 

O IS 1 ! 

Am 1 


J SR 

B L K 0 F F s B L I N K C R S R □ F F 

4040 2 

A 1 60 

/*** . f 
: .*“. 
W W 

08 



DEC 

NAMLEN 

4050 2 

A 1 C4 

C6 

D3 



y. !••*• .•*«*. 

D E 0 

COLNUM 

4 0 6 0 2 

a 1 r* m l 
hi 1 L/O 

A Cl 
hi / 

20 



l T t 

L_ L/ R 

#” " 3 FILL CHAR 

40 / O 2 

A1C8 

20 

T A 

i u 

B 5 


1 c p* 

EDOUT 

40 SO 2 

A 1 CB 

L* 6 

r*. — r 

Do 



DEC 

COLNUM 

4090 s 

a •< ™ n 

4C 

■.J 1 !'” 

A 1 

FILLDN 

11 

JMP 

F I LG TO 

4 1 1 0 2 

h i Do 

A 4 

r*. -t 
06 


? 

FILDON 

L D y 

COLNUM ; ENTRY YET 

4 i 20 : 

H X U <*X 

CO 

0 B 



C P Y 

# 1 1 

4 1 30 : 

h 1 D4 

*444* *4 

F t ) 

F 7 



BEQ 

FILLDN 3 MUST HAVE ENTRY 

4 1 40 2 

i-i x D 0 

.♦h». *• 

y 1 *: 

•h— 

7 L- 

p «=; 

F I LDN 1 

JSR 

BLKOFF 

4 1 50 s 

A 1 T~ i Q 
hi X xJ 7 

1 9 

Ml ’»H 




r { p 


4 1 60 » 

A •* fS/\ 
hi X L/H 

60 




RTS 







5 ROUT I 

NE TO 

PRINT DIRECTORY 

4400 2 

A 1 DB 

20 

*7 j**”- 

P5 

D 1 ROR Y 

J 6 R: 

BLKOFF 

4 1 O * 

T 4**. 4 . V 14 

A I DE 

•j* 0 

4 mi V 

3B 

B6 


JSR 

A R A C L R ; C L E A R A R E A 

4 6 2 O 2 

A 1 E 1 

fix! 

02 



1 y*i \ .* 

L... U A 

#2 

4 • 5 ”4 0 * 

/\ .J J*** 4 “7- 

t“i X >-«- 

A U 

08 



LDY 

#8 

4240 2 

A I El 5 

i O 
X 5 -J 




CLC 


4 s ~; 0 «■ 

1 W ~ 9 : 

A 1 E6 

2 0 

FO 

FF 


JSR 

P L 0 T 2 P 0 8 1 T 1 0 N C R S R 

rt r**. ; 

4 2 60 2 

A i cr c*« 

hi I III •? 

A 9 

00 



LDA 

#0 

40 70 - 

1 X. f *«* 15 

A 1 E. B 

85 

”7 
/ / 



•Lj ] R 

TEMP 3 

4 3:80: 
4290: 

A1ED 
A 1 FO 

20 

Q 

88 

06 

R . 1 . 1 ! 


JSR 

BCG 

p qk" T KIT 

DIROl ; TEST FOR ERROR 

4300 2 

A1F2 

■.‘f i 

***** .* 
Cl 6 

~ 44 ** 

H jX 


ah 

P R T E R R ; P R I N T E R R 0 R 

4310: 

Hlhb 

.n 

*f* 

***r /• 

7 A 

/•i. 

R .iX 


JMP 

D I RDON 

4320 2 

-• J *•»•• *-»* 

R 1 r 0 

A O 
n / 

.*•* ?***. 
O 6 


D I KO 1 

I A 

L... L.- ! R 

#2 

4330 2 

A. -? !*"* .A 

ht X 1 *“ M 

M ***** 

hi O 

DC 



LDX 

#< D I RDT A 

4640 2 

“ .} ***— ***** 
H J. r L. 

rO 

A 6 



LDY 

#>DIRDTA 

4350 2 

A I FE 

20 

BD 

FF 


JSR 

SETNAM 

4360 2 

£64 *•* 1 i 1 

r 1 u**4 -o 

A9 

01 



L. D ri 

# 1 

40 70 2 

A “5 r 

R O V J -X* 

R O 

*♦ 

06 



LDX 

#8 

4380 s 

A 20 S 

A O 

00 



LDY 

#0 

4390 s 

A 20 7 

20 

B A 

p p* 


._ ..... j~. 

J 6K 

m» ***** * 1 M 1 * ***** MM 

{•" { j r* 

***** Imm 1 ***** 1 ****** 

-*j- : ._i 0 2 

•• *4*» •» •• 

R 6 } -J R 

20 

CO 



-I SR 

v** 1 w I ^ 

OPEN 

44 i 0 2 

A20D 

IV f*^ 

R jX 

0 1 



LDX 

#i 

44202 

A 2 0 F 

V f") 

»*** * 
L-6 

***** r— 

F F 


JSR 

CHKIN 

4430 2 

A'-, "" 1 "" 

1 I .16 X a 6 

A 6 

90 



LDX 

STATUS ; TEST ERROR 

4 4 4 0 2 

A 2 i 4 

Do 

64 



BNE 

D I RDON 

4450 2 

A 0 1 6 

AO 

O 6 



LDY 

#6 s DUMP START St LINK 

4460 2 

A 0 1 6 

2 0 

»I«M ** 4 * 

A i: “‘ 
« 1 -♦* 

F F 

D I R 1 

7 cr r*i 

J r\ 

ACPTR 

4470 2 

A21B 

A” :”** 

O O 




DEY 


4480 2 

A 2 1 C 

DO 

h A 



BNE 

D I R 1 

4490 v 

Ao i L 

20 

A 5 

FF 

Pi T P' “7 

Aaf *L I V 4 it. 

JSR 

A C P T R ; R F. A D D I S K N A M E 

4500 2 

•* •*** .*••*. 1 

hi 46 X 

F u 

05 



BEQ 

D I R3 

45 i 0 2 

^**_ ***• .**** t ‘•*T’ 

M •* y ’*♦ 

• * *t«»* «!■»■ 

20 

ilm **»’ 

16 

F7 


J S R 

SC ROUT 

4520: 

hi ji., ji.. 

7A .**. 

DO 

***** f 

p hi 



BNE 

f * T P» ; ** = * £4 i Ixj Ci V Q 

*w .i. 1 *i*4* u !*» u.i 7f ri i w 

4530 2 

A, »"*‘t 

f**i Jt„- -XX- O 

A 9 

** ** 
OO 


D I R3 

LDA 

#0 

45402 

A 0 0 A 

3"i cr/ 
O vJ 

P7 

W f 



ST A 

REVFL6 

4550 " 

T W W 1! 

a *T’ p 

R .ti.. j_. L..' 

A 4 

D -2' 


DIR31 

LDY 

COLNUM 

4560 2 

A •*“: “ r— 
R jX jX CL 

CO 

J. 6 



CRY 

tt 2 2 

•i »» 4 I titt. M 

4570 2 

A 2 30 

BO 

06 



p p c: 

D I R4 

4580 5 

hi 6 O jL. 

A *0 

1 6 



LDY 

XL 

tI* .i*‘*. j!m 

A trr rn 
*t ...J 2 ? 1; 

-♦**' R’ /] 

H *«x 0 *+ 

r**i ^ 

yr ***r 

iJ 



CD ! V 

0 J i 

COLNUM 


■4 6 U U 2 

Hi 2 & 

•M* «• 

Du 

i j| 



Tj K ** C 

4*»" 1 'i Imm 

D I R4 1 

u A L W hi T Ell* 

46 1 0 s 

»• *»M 

* \ t . : i 

i**«f «' •» »"**. 

i i iWm * Ml * 'iMl' 

A O 

0 1 


DIR4 

L D Y 

# i 


4620 £ 

A .ill! 2 A 

A 6 

U c:> 



LDX 

L 1 NNUM 


4630 £ 

A 2 -j' L.- 

E 8 




I N X 



4640 s 

A 2 • j* D 

B 0 

2 «■ 
i / 



CPX 

#23 


4650 £ 

A 2 • F 

B0 

♦M^4 t*M 

. ji *7 



B C S 

DIRDQN 


4660 s 

A 4 i 

; 1 i 4. 

20 

F0 

FF 


J SR 

PLOT 

; ? C CLR -- GO PLOT 

4670 s 

A 2 4 4- 

A 6 

90 


DIR41 

L D X 

STATUS s 

GET ERROR 

4680 £ 

A 2 4 6 

DO 

-*r /***j 



BNE 

D I RD0N 


4 6 7 0 £ 

A 2 4 d 

A u 

u5 



LDY 

#5 


4700s 

A 2 4 A 

4« V* 

a nr 
rlJ 

pp 

D I F<42 

J SR 

ACPTR 


47 1 0 £ 

A A r*-. 
H aL ~t iJ 

M # 

Ad 

,«n .*♦, 

W f » 

; v 



LDX 

STATUS 


4720 s 

»» »»*< •• •••»• 
A24F 

DO 

vQ 

4»m ** 



BNE 

DIRDON 


4 / jU £ 

HaivJ j. 

88 




DEY 



4 / 4U £ 

•“* -**“i n:r n 

DO 

F6 



BNE 

DIR42 


4750 £ 

A cr a 

hi %J *t 

r- o 
L- "7 

2 0 



CMP 

#*» “ 


4 / 60 £ 

A256 

DO 

h“, h** { 

A** Am 



BNE 

D I RDQN 


4770 s 

A258 

7*0 

4«I. 

a n:r 
hi U 

FP 

DIRS 

JSR 

ACPTR 


4780 s 

a *~'t cr r*i 

hi 

F0 

UF 



BEQ 

D I R3 1 


4790: 

A25D 

A 6 

90 



LDX 

STATUS 


4800 s 

H^ujr 

On 

Am* *m* 

19 



BNE 

DIRDON 


48 1 0 £ 

hi ail. O .1. 

:****• O’j 
I **v 

m/ / 

mm. 

•• / 
*U*« 4»m 



CNF* 

#34 

; QUOTE 

4820 s 

r\ r**, / -*r 

A jl to J:« 

no 

04 



BNE 

D I R6 


4830 s 

a. cr 

H ..1 0 •....< 

IE 6 

tMy •«*•* 

/ / 
/ / 



I NC 

TEMP 3 


4840 s 

/ \ * j 6 f 

i**i jL u / 

DO 

07 



BNE 

D I R7 

; ALWAYS 

4850 £ 

A 

hi aL O *7 

A 6 

■ ••M . 

# m 

* t 


D I R6 

LDX 

TEMP 3 


4860 m 

A26B 

F0 

“M* 

U.j 



BEQ 

D I R7 


48 7 O £ 

A / *f*\ 

AaZO L-' 

20 

i 6 

p 7 

Um. / 


JSR 

SCR0UT 


4880 s 

a -*n “7 f *\ 
hiaZ / U 

EO 

A*4 


DIR7 

CPX 

#2 


4890 s 

♦» **** 

hi aZ / all. 

90 

E4 



BCC 

DIRS 


4900 s 

A 2 / 4 

A 2 

00 



LDX 

# 0 


4910: 

A '"i ”7 / 

A aZ / o 

86 

• MtM 

/ / 



SIX 

TEMP 3 


4920s 

A '***£ "7 f"j 

/ o 

r U 

DE 



BE‘0 

D I R5 

; ALWAYS 

4930 £ 

hi aZ / A 

A 9 

0 1 


DIRD0N 

L D A 

#.t 


4 9 4 0 s 

A “**• — y 

/ U 

20 

r- ”** 

p p 


JSR 

U L U o fci. 


4950 s 

a "7 r.“ 

hi r 

20 

8F 

A 2 


J SR 

DSKERR 


4960 s 

A 

hi aZ Q aZ 

90 

03 



BCC 

D I RDN 1 


4970 s 

A 284 

20 

E 6 

A, "" 
M all. 


J S R 

PR TERR 

? PRINT ERROR 

4980 s 

A r“ ~7 

hi a:.. O / 

60 



D I RDN 1 

r* >”’• 








H 

; INITALI ZE 

OR OTHER E 

RFlOR CHANNEL 






£ CALLS 

! U 

DISK DRIVE 


5030 £ 

H2cl S 

A 9 

02 


DSKINT 

LDA 

#2 


5040 s 

A 28 A 

A 2 

DA 



LDX 

#< I N I TDT 


5050 £ 

a -~i o r~ 

hi al~ W L./ 

A0 

r. ”*f* 

A ■..!> 



LDY 

# > I N I TDT 


5060 s 

r 1 ; 

hi a::, o !:::. 

2C 




.. BY' 

! -5:- ail. L.- 

3 BIT OPCODE 

DU 70 £ 

A 2 8 1“ 

A O 

hi ”7 

00 


DSKERR 

L D hi 

#0 


^ r s h o a 

A29 1 

20 

BD 

p pr 

D 8 KERO 

JSR 

SET NAM 


5090 £ 

A 294 

20 

p" '"V 

EL / 

p p 


♦r h". 

J bh 

1 A t S 

t .4 f"i{ i 

■ ••• ■ i Mill IHH 


5 1 00 s 

A. A": "7 

HZ ‘7 / 

a r< 

hi "7 

00 



LDA 

#0 


5 I 1 U £ 

A 2 9 "7 

§ D 

00 

Z-' aL 


ST A 

INPBUF 

; NO ERROR YET 

“i i r?o « 

A29C 

A 9 

(j F“ 



L D hi 

# i 5 


-i T ["'! u 
'•J '-i 1 b 

a "A n r~ 
A all. *7 EL 

t"i all. 

08 



LDX 

#8 


5140: 

A 2 hi l_- ! 

A0 

OF 



LDY 

#15 


5 i 50 £ 

A 2 A 2 

20 

BA 

‘•Ml MM. 

i*M MM 

i 1 


JSR 

p r j i:r* c 


5 1 60 s 

r. h, 

f”’i ail. H %.7.» 

«»♦» 

I 

Am 

CO 

FF 


*Y h**. !*“. 

u b>r*-. 

OPEN 


nr i "7 P 

■_J a. / v n 

4* •« MM 

A 2 Ad 

A 6 

9 (j 



LDX 

STATUS 


»*** « *• 

. * 1 Hi ) 2 

A alii f“i A 

DO 

03 



BNE 

DSKE.R2 


;*«• _i ,***•, 

J j I ! B 

•mi* 4- / v n 

A 2 AC 

2 O 

CO 

h. /‘“j 

F"! all! 


JSR 

G El 1 ERR 

; 60 GET DISK ERROR 

*»»♦• »•♦*_ ** ** r 
z ,*! Ji 2 3 
w «-*•-• a 

A2AF 

A 9 

OF 


j p j..,-'..* 

All* Mil* I *1 IMM i *. tllll 

L... 1.) A 

# i 5 


j.-.. „ 

w a». x V i> 

A2d i 

20 

*7’ 
•w • .J 1 

FF 


•V h*’, 

» *MM }-.** 

CLOSE 


nr *•*;* u 

W Jm 3 

hi 2 B 4 

***•. .**. 
2 •* 

cc 

pp 


J bh 

CL RC HN 


.4... ».•.* is 

A2B7 

A V", 

hU 

oo 

M M 

*’*') ’”7* 

v al« 


L U A 

I NPBUF 

; GET ERROR 

^ V A 2 *1 * 

v; 4.t. ~ 3 

A T; A 

hi ail. JD 

C9 

•*n* j 

O i 



CNF 

# n i n 

; .?■ * <j IS ERF<0R 

Cr •— = tir .. 

. i . ! « ) r. 

AuhT": 

no 

, M . .i 

( j s 



BCS 

DBKED 1 



MU • •• 

— i A i 'i <« 

• •••* •!••• MM **•* fl 

a •**“; r’i r~ 
M2DC 

i r ~ t 
i d 



DSKERD 

****** L*l* I**.* 


5 2 / i i 

»« *iv. *M* U 

f\ “•« MMi 

hi A b 1” 

60 



DSKED 1 

RTS 


^vQm « 

U‘ 4»t ’«• II 

•*. MM M«*, M 

H A L O 

38 



*! 

GETERR 

SEC 

s GET ERRORS 

5300 1; 

A 2b ... 

A 6 

9 0 



LDX 

sift! US 

5310; 

A <“** -M* 

hi j.',. 

DO 

20 



BNE 

bt 1 cKj 

532 us 

■ • MM MM ***** 

• \ ‘it* •**. 

hi .Ms A* -A 

>* ,MV. 

hi .ii„ 

OF 



LDX 

# i 5 

UMI Mill MMt • » 

w •-.* %~* * J » 

rt r*~, 

HjlL / 

aO 

C 6 

PP 


J SR 

CHK I N 

5340 s 

)-i A A H 

A 0 

M 

oo 



L D Y 

#0 

M»M Mill MM. •* 

DojU 2 

M t •****! .****. 

r*"j .iSm w 

20 

I* JT*M 

v’ V. “MV 

A -.j 

p p 

Gt.T ER 1 

J SR 

ACPTR 

5360 s 

A2CF 

: ,m ‘ 3 O 

“V “V 
/ / 

_M «• 

oo 

[“■ -‘*2 

.t™ 


ST A 

I NP BUF j, Y 

D-;:> 7 u ;; 

A •***) Fi ‘”*7 
M .i:.. JL/ 4. 

rp 

0D 



CMP 

#13 ;<CR> 

5380 s 

A 2D 4 

:•••• 

h u 

05 



BEQ 

bb. i bK a 

Q J } n 

W V.’ ’m ; « 

A a U 6 

CB 




I NY 


5400 s 

♦» Mil M*l •MM 

hi A IJ / 

CO 

i E 



CP v 

#30 s MAXIMUM OF 30 CHARS 

5410 s 

AaD9 

DO 

F 1 



BNE 

MM •*••« HIM ••*•• 1 

bb 1 bK 1 

• •M< H MM M 

•M. ,*l 1 * *. .. 

vJ “4" 4. 'v ij 

A 2 D B 

A 

}‘“i A 

04 


bt i b.K a 

LDX 

#4 ; SET OUT DEVICE 

54 o us 

HaDD 

P‘ o 

4*m *m' 

C 9 

PP 


J SR 

CHK OUT 

5 4 4 0 ii 

A A L O 

AD 

00 

l a 
’*-* 


s r\ a 
L_ U hi 

INPBUF ; GET ERROR 

5450 s 

A A 0 %!> 

C9 

**7* .j 

v. 4 4. 



r mp 

W l I i 

#" 1" 5 ’C SET ON ERROR 

54t>0 s 

• *j t ,l,> jMM 

hi A L \J 

60 



bb. 1 LKo 

(*"; 'T* a*"*’* 

h. 1 ::::> 


nr OA „ 

A A E 6 

ML mm 

A A 

ID 


;*•*, r'* **r* i* 4 *, r*. 

r K j bh.b; 

1 DX 

i*.M L* A 

#29 ; * DISK ERROR . . . 

5 4 9 0 s 

A2E8 

,t... ' m*' 

BC 

♦w* Hm 

8 9 


•T f", 

J o K 

. ♦ ***** t.M **♦* 1. »♦.! 

n b b b A L 3 

j«««* ***** «• M 

jjUU S 

A?pD 

. 1 ttut .mm Am 

A V 

05 



LDA 

#5 ;; WHITE 

5510 s 

n MM MMI ■ ■•• 

A a b. i. J 

2 0 

i a.. 

x w 

E / 


J SR 

SCR OUT 

tr k: - •“ - 

U -.J j:.. ii 

A AT U 

A 0 

OO 



LDY 

#0 

• |M< Mas. M 

*v. 1 - 1 * *. *- 

J ; . : : c 

W W 'm-* R 

.** MM. • ••*• MM 

r i 4 *m i .**♦* 

B9 

o o 

02 

ERR FT 1 

LDA 

I NP BUF » Y 

j54u s 

M MM. MMI 

it ,1^. i \* J 

C9 

0 D 



PJvJC* 

wl 13 

#13 

ur r.n; cr f"j l: 

*MM* *mJ ‘-mJ It 

11, MM_ VMM ■•*11 

Hat / 

F 0 

08 



b E u 

ERRPT3 

556u s 

A2F9 

20 

1 6 

E7 


JSR 

SC ROUT 

p T !'") » 

jM M«« J».M Ml. 

A a : r L- 

U o 




I NY 


w w :i 

A2FD 

CO 

i 8 



CRY 

#24 

5590 s 

f* »»M ***vv fi|M 

hi A !"■ r 

90 

Fl 



BCC 

E R R P T 1 ; 0 N L Y A L L 0 W 0 N E L I N E 

5600 s 

M M^* M I 

HoO 1 

A 9 

Q p 


Fppp tt 

M- 1 •• 1 •- I 1 

LDa 

#159 ; CYAN 

t::: ; a i o - 

‘mm* W 4- *M- It 

« IM,. -*M 

M • Jl . Jt 

20 

i 6 

E7 


u oh 

SCR OUT 

A V i~] « 

V*** 4mi -m* a 

A 3 0 6 

o O 




pTQ 







***** ***** ***» ***** 
S i bb 1 

TO SE 

E IF DISK DRIVE IS 






; C0NNE 

C T ED 

TO SYSTEM 

r ": A “7 f“) » 

M»‘ lw/ .* U 

A 3 07 

A 9 

o o 


Dik [ S f 

LDA 

#0 5 CLEAR ERROR 

JMM 7 MM 

% j 6 o '-s ' 1 ii 

A 30 9 

t— : C-” 

O ...J 

90 



ST A 

s i a rus 

•MM ■ MM M 

iAA'( ! » 

M,- W / M* a 

.1 IMII M MM 

Abub 

A9 

08 



t T’*. r. 

LDa 

#8 

.MM ***** **. ,V_ 

/ J t ! ! t: 

j* ’m ; •**’ II 

A3uD 

20 

B 1 

***** ***** 
F F 


u oK 

L I ST Eli 

57 i 0 s 

hi -J.’ 1 1 L- 1 

-•*( J 

r. r*** 

A b. 

***** • * ■ • . 
j... r 


J SR 

UNL I SN 

nr "7 ™ *> 

w 7 .u ‘-m* tt 

nO 1 O* 

V i'‘‘i 

•U V 


F F 


JSR 

C L R C H N 

5730 s 

,’\ ■"!* f 

H o j. C"> 

1 P‘ 
.1. 




J j““* 

•....■ 2m.i W 


5740 s 

t—i i / 

A 6 

9 <3 



i Ti V 
L. U A 

STATUS ; CHECK ERROR 

5750 s 

A3 1 9 

2— .-v 

r U 

0 J. 



Y": J — j—j 

b i::, i.v{ 

TST 0 

5760 s 

A3 1 B 

“T “•*, 

A* O 




SEC 


5770 s 

H-j 1 1...- 

60 



MMI MM *«■•• H 

r *-•: f i 

1 W 1 *M- 

p* T Q 

a •* ! w 







; TEST 

TO SEE IF DISK IS FORMATTED 






; BEFORE A SAVE IS TRYED 

5820 s 

A T -j Tv 
hi A 4. U 

A 9 

08 


DSKBAM 

L D hi 

#8 

5dou s 

*«•• J MM. 

H b« j. r 

AU 

08 



t ***** *• •• 

t... AJ Y 

#8 

5840 s 

M T ,” M , J 

H a i 

■ < tint 

08 



LDX 

#8 

5B50 s 

ss *1 «|« .Ml MM. 

A A A A 

20 

T*, .•». 

DH 

MM* 

r r 


JSR 

•■•* nut ttin t t»«i» mm 

bb i Lr •::> 

5860 s 

A T -*A / 
hi >a. O 

A 9 

0 i 



L D hi 

# 1 ; OPEN CHANNEL 

5870 s 

A '™: I"j 

hi •„:* A O 

A 2 

DE 



i.„ D X 

#< CHANEL 

5880 

JM M.]l Mil ( M 

A C* a A 

A U 

A “.*»• 

hi 



LDY 

# > CHANEL 

5890 ; 

M ■■■•■ MM MM. 

A -b- -b t_- 

V i"} 

4-m V 7 

BD 

■■•a* ***** 

r r 


J SR 

SETNAM 

SQOri « 

A32F 

20 

CO 

*•••* 

r r 


•V **v »»♦*_ 

J bK 

OPEN 

sr Q j n “ 

*MM* .* -1* *_- l* 

A ““ “I 1 * •“**/ 

hi a 

A O 
;-i “* 

Of: 

•* MM 



LDA 

#12 : OPEN B-P TO BAM 


. j W 7 s {"? «' 

*•** * *•*•• *** |t 

/\ ~? r 7** /j 

f-i -J- 0 * A 

A 2 

•**• •«••• 
U r 



4 44** * * 

L U a 

•li BAND ! Hi 

7- Q 7 f j =• 

• Mill WMt • 

H A A 6 

AO 

ft **7 

Hi 



i j ) Y 

# >BAMDTA 

KT »•**% /; 

5940 !i 

/• tMf* *«JI Ht» 

H - A A* 6 

20 

9 1 

-•*- 

H 2 


3 oh 

DSKERO 5 GO OPEN S< TEST 

UM ; C/ r ^** ; f J ?l 
W V W SI 

Rood 

9 1 ) 

OE 



B C C 

BAMDON 

5v60 " 

,♦* •***! *t»J» y«t 

H O'* O' 

a rs 

i-i U 

M 44 

OO 

02 


LDA 

I NPBUF 

™ Q *7 n * 

w / / %.• ;< 

A ,M 1 ’ IJ 

H o*4U 

r-Q 

• 7 * r***. 
*— 1 



r m 6 : 

W I 1 1 

# ” 2 " ; E R R 0 R » 2 0 ’ - U N F 0 R M 

5 9 3 O a 

•». *• .*•** 
H O' *+ A 

no 

0 '7 



BNE 

BAMDON 

5990 « 

a ~r si . i 

H •„:« 4 -4 

a n 

H xJ 

0 1 

C) ^ 


L D Hi 

INPBUF+i 

Aorjo « 

n ***** it ••••« 

H 0 * 4 / 

“•* ***4 

Q Y 

30 



CMP 

^ 11 Cj n 

60 1 0 s 

a ,-•» r*i 
R A 4 7 

F 0 

,*• *.**• 

O / 



BEQ 

FORMAT 

6020 2 

a **r* /i Tj 

H • j. 4 b 

A 9 

08 


B AMD ON 

LDA 

#8 

60 ou 2 

•• »»»}» *4 -*•* 

h o» 4 0 

20 

C3 

FF 


J SR 

CLOSE 

6040 2 

H O' 5 O 

1 u 




CLC 


• M H*r* H 

60 DO 2 

A 35 1 

60 




f**. *7** /*ft 

}* M -. i 8 







fi 

2 ROUTINE TO 

ti 

FORMAT DISK 

6090 s 

A352 

A 9 

-• M«* 

08 


FORMAT 

LDA 

#8 ; FORMAT DISK 

a i oo «= 

W J- V V u 

ho. 5 4 

20 

L/ - J* 

FF 


JSR 

Cl 09 F 

6 1. 1 0 2 

a t* »nr "*7 

Hi %.J / 

70 
***** **•' 

i“” r” 

o o 

A 2 


J SR 

D S K I N T ; C L E A R E R R 0 R 

6 1 20 s 

A T cr A 

R • J* J H 

H D 

’i 

4. O 


FGMQES 

LDX 

#24 j ’FORMAT DISK.. 

6 1 30 2 

A35C 

f*ft 

20 

BC 

B9 


JSR 

MESS AG 

6 1 4 0 2 

a “r cr ?**- 
Ho* Dr 

' ? l") 

4m V 

H 7 

B5 

FORGET 

J 5 !•< 

GETCHR 

6 i 50 : 

A ***r / 

H O* *6 j:;! 

48 




PH A 


6 i 6 0 2 

♦* ***** • **4f* 

H 0* 6 -,o 

•**4 M 

20 

OB 

B6 


J 5 R 

CLEARS 2 CLEAR MESSAGE 

6 i 7 0 2 

rt ***t* / t 

H 0>>6o 

68 




PL A 


A i kO b 

A / •••>• 

hi •_:< 6> / 

C 9 

i::r q 
D 7 



CMP 

# ,s y " 

6 i 90 2 

A T A o 
hi O* 6 7 

DO 

3E 



BNE 

FORRTS 

6200 s 

A 3 6* B 

*T : / 

AB 

/•. ***t* 

!~l 6* 


J hR 

S A V F L N ; S A V E F I L E N A M E 

A 2 1 f ~) ■ 

w j„. 4- n 

A 3 6 E::. 

A 

H a::. 

00 



LDX 

#0 ; PUT IN "NO: " 

• *♦** — *• 
f— , ! 'i •' 

*f i* «twi ' •«* II 

A 37 0 

BD 

•mi y**« 

CD 

ft ***r 

H 6* 

FOR 1 

LDA 

DSKNWi , X 

/ ***t* ,**. 

A* v s * * n 
CD -J*** 'nt 1 s» 

H0' / 0* 

9D 

EO 

w F 


8 i A 

FILNAM. X 

6a4u 2 

»• »«m Miy ( « 

H 0. / O 

E8 




I N X 


6A DU 2 

A 37 7 

EO 

f’Vo 

**** ‘**4* 



CPX 

#3 

6260 s 

^tt ***** lllll till 

H A / 7 

DO 

r~ cr 

r d 



BNE 

F UR 1 

? r»* z •’•7 . M . 

6 A / U 2 

A 379 

:^i ***** / x*** 

86 

Od 



6 T V 

8 5 A 

NAMLEN 

6280 2 

r M, p “*v *h 

H O* / U 

H .0 

20 



LDX 

#32 ; ’DISK NAME.. 

6290 2 

H 0> / F 

****. ** 
20 

B C 

B9 


JSR 

ME SB AG 

6 3 0 0 2 

ATQ9 

*-•** r*\ 

w -y 

1 3 



LDA 

# 1 9 

63 1 0 s 

A T O f 
H O H* 

20 

OC 

Hi 1 


JSR 

G E T F N 0 ; G E T D I S K N A M E 

A 3 70 " 

W *1*4- •*.* «x 

•**»♦ j****. **»r 

H 0> o / 

BO 

ID 



BCS 

FORDON 

. u. V —*• 

6 8 80 2 

Hi D O 7 

A 6 

08 



LDX 

NAMLEN : ADD ON ? , MF 

• *••** M »• 

6 j* 4 O 2 

♦4 *44^ **.*, *.*. 

H 8 o b 

AO 

OO 

** 44 



LDY 

#0 

/ “*t* }***• .**. 

C.jjv 2 

A38D 

r*f f"» 

b 7 

DO 

H 6' 

F0R2 

i n d 

DSKNW2 h Y 

/ **T / 

M— \ •**- * I If 

O C_ ! t 

A 390 

90 

*t, 

Eu 

CF 


ST A 

F I LNAM ? X 

£j-j /U 2 

M MM> Mil llljl 

H 8 7 A 

E8 




I NX 


60-80 2 

A 3 9 4 

C8 




I NY 


6890 2 

A 3 95 

CO 

A 

♦. /. t 

t* 4*4* 



CRY 

#3 

6400 1; 

A 39 7 

D 0 

F4 



BNE 

FOR 2 

64 i 0 2 

“ «**^4 — ** *••• 

H O* 7 7 

8 A 




! AH 


A A 7 f > p 

A 3 V A 

H D. 

■•••a *• 

E ( j 



LDX 

#< F I LNAM 

6430 2 

A39C 

AO 

r-p 

W I 



LDY 

# >F I LNAM 

6440 2 

a t o r~* 

H j* 7 b:. 

D U 

91 

r. 

H D 


JSR 

DSKERO ; GO OPEN AND TEST 

*L /} 3nr.fi u 
~t u 

H 3* H i 

90 

0 3 



BCC 

FORDON 

6460 2 

/*. M *f ft "7 

HO* HO* 

4*4* •* 

20 

F :••} 

A 

M 


J 8 R 

P R T E R R ; P R I N T E R R 0 R 

6*4 / O 2 

HoHto 

2 0 

*>— »•*»• 
Dt 

ft **^t* 

H •.!!' 

FORDON 

JSR 

R E S F L N ; R E S T 0 R E FILE N A M 

6 4 S 0 2 

ft ***** ft /***J 

H 0> H 7 

• J. O 



FqrrTB 

sel 

; FORMAT FLAG 

6490 2 

/\ "7 # .*** # /*. 

rl • J* f*1 {**1 

60 




• 4** ***** MH 

r< { ■:::= 


65 1 0 s 

A ahB 

A 6 

08 


f! 

SAv'FLN 

LDX 

N A M L E N ; S A V E FILE N A M E 

A 570 * 

*441 Wf «**4* '♦»’ II 

A "T A. r% 

H -.J' hi L? 

8E 

CO 

CF 


SIX 

TMFARA 

6580 2 

A 3 B0 

BD 

EO 

CF" 

SA'v'FLL 

LDA 

FILNAM, X 

6540 2 

A3B3 

9D 

r 1 

CF 


O f ^”i 

TMPARA+ 1 „ X 

6550 2 

,•4, -**^* «t* ^ 

A B 6> 

C A 




D E X 


6560 2 

A3B / 

10 

F7 



BPL 

SAVFLL 

6570 s 

H aB9 

♦ r i 

hz 

0 0 



i n v 

L r . > ,*• /\ 

#0 : SET TO NO ! EkiETH 


/ nr ;•***! /**», 

W O U 

R -.l - ' b b 

d 6 

•• MM 

Q 



p T v 

NAMLEN 


r r***. 

OJ7U " 

A3BD 

60 




ft; T Q 



6 6 1 U 2 

H -2 b L. 

hE 

00 

4 ***. ***** 

C F 

li 

RESFLN 

LDX 

TMPARA 

; RESTORE F I LETT 

6 6 2 0 2 

/% **jr *r 

hoL i 

86 

! iW 
w 



>•*• MM< • ■ 

b 1 X 

NAMLEN 


L. T ;'" i ri 

O O ‘•-' f u 

Ht|> **♦* IM^t 

H 2 L, 2 

BD 

0 1 

OF 

RESFLL. 

LDA 

TMPARA- + 1 

? X 

6640 2 

f »» »T*J» 1 » 1 < * 

Hobd 

9D 

{•“ i \ 

OF 


ST A 

FILM AM, X 


6650 2 

H-22 *7 

CA 




DEX 



AAAn « 

W w w v u 

■a ***** «««* ■■ 

«* •. . J ' / -a 

hi -J' W hi 

1 0 

F 7 



BP! 

**»• •**♦• **•* • * 

hs* r** SR 1 ' 

! * I.H- W X i*M. i«.m 


6 6 7 0 s 

»* f**» f *** » t 

0 o* 0 5 

60 



II 

P T C; 



6690 2 

A "T ,-**■ r*- 
ri a„- 

4E 

30 

3 A 

u, 

DSKNW 1 

« A 80 

"NO: 11 


6 7 OO t 

A 3 DO 

2u 

4D 

46 

DSKNW2 

a AbU 

n |v| F «« 


67 i 0 2 

A3D3 

v n 

4*** MM 

53 

/*** r in 

2.* 

DSK8EQ 

M *»** t MM 

a HbL 

n rr- 2 .? is 

a <1 VV 


2. "7 *7-' r"‘t *■ 

W * u*** V t: 

M *»*^» H»* ***** 

R 2 U / 

j**“ *7‘ 

vJ 0* 

30 

T A 

•J'R 

ERASDT 

A O [““■ 
a MOL 

" SO s " 


• mta ***** ** 

6 / 2U 2 

H A* D H 

49 

30 


IN I IDT 

ft r*. ,*•**. 

a M3L 

55 1 0 13 


6740 : 

H -.j U L 

'•ft Si 
jb *+ 

30 


DIRDTA 

a A b 0 

" $0 53 


6 750 2 

A3DE 

A 



CHANEL 

a A SO 

i. ^ i» 


6 7 60 ;i 

r, •**t* r*. r** 

H 3 D F 

/I **“i 
**T ub 

•*-* 7”. 
t .‘ M 


BAMDTA 

ft ft". ftft 

« HbL- 

"B-R:8 0 

18 0" 

6780s 

H0>Ed 





a FILES, ” FILER 

. PAL PT2" 






; MI CROP 

9 

■ I LER 

F' T 2 







II 

M 

? OPTION MENL 

1 ; 

•f 

j 


i 60 2 

A ST* TT.' 
m .j* b 

V O 

* 1 *** 

F 4 

7”, CT 

r.' -....i 

n 

ff 

□FT I ON 

J SR 

SCRCLR 

; CLEAR BOTH 

170 s 

« »-«j- j**— ••**- 

H 0= lb. h. 

ft" 

20 

EA 

b 

OPT I NO 

JBR 

SCRNPT 


i p «"i » 

A3F 1 

ft ft", 

h2 

X aX 


OPT INI 

LDX 

#18 

H OPTION MENU 

i 90 s 

/*. ***** f— * •*♦** 

Hor 0* 

2 0 

BC 

B9 


J SR 

MESS A 6 


r* }■“) n « 

4*** **** *..* tt 

**_ ***** ***** * 

/ \ *. L* iw 

H r 

T 1 ("} 

4m* 'm* 

ft. —7 

i-i / 

B5 

OPT BET 

U bK 

BE TO HR 


UM J M 

7* i j‘ ‘s a 
<ht. X a 

ft **r I**** s **n 

AoF 9 

A 6 

FP 



LDX 

MESSFL 


•• } z 

»!«»■ *l»a* « ” 

*• ***** ***** *y** 

H2h b 

F0 

09 



BEQ 

ENTO 


230 s 

a* ***** ***** 

rior D 

•4 O 

4 o 




PH A 



240! 

A3FE 

t*M ,M 

-• i ; 

4»,» •* 

0B 

B 6 


JSR 

CLEARS 


“ e , 0 " 
*l*~ W ***’ li 

A4o 1 

C", 

O O 




F'LA 



9A("j » 

A402 

ft r*. 

R 2 

00 



LDX 

#0 


v “7 (“) « 

A 4 0 4 

86 

FF 



STX 

MESSFL 


CJ j'” j a 
aL '• J a 

A 4’ O £y 

C9 

.1 c:r 

M- ...J 


ENT0 

CNF 

# " E " 

; ? ENTER 

v Q (" '! « 

4h. * V tX 

A 40 8 

DO 

1 6 



BNE 

0PT2 


T f“\ a 
OV 2 a 

A 4 O hi 

20 

FA 

D7 

1m 1 wi 


JSR 

OLE ART 


1 l I * 

'w® .1. V li 

A40D 

v O 

10 

B6 

ENT 1 

JbR 

CLRFLD 


— f 

■jXU 2 

A 4 1 0 

2 0 

3 w 

W f 

B2 


JSR 

ENT DAT 


330 s 

A -4 i "ft 

m41 o 

B0 

DA 

•Ml* •••/ 


ENT 1 1 

Hfq 

OPT I ON 

H DONE ENTER 

340 2 

A4 1 5 

20 

7F 

•«.* In*. 

B1 


JSR 

ST 0 DAT 


350 2 

A 4 1 8 

90 

«**•* M«J* 

r • j» 



BCC 

ENT 1 


•:>bO s 

A 4 i A 

20 

—**t h**\ 

/ 7 

B d 


JSR 

ENTD3 


37 O c 

A41D 

4C 

13 

A 4 


JMP 

ENT 1 1 


7RO ** 

A 4 20 

r-Q 

m*4 4 

cr “7 

w 2 *. 


OPT 2 

CMP 

# " R " 

3 7 RETRIEVE 

390 2 

A422 

DO 

03 



BNE 

OPT 3 


400 s 

hi 4 A 4 

40 

72 

** *Z* pf 

A 9 


JMP 

RET REV 


4 i 0 s 

A -1 -*"}**7 
hi '’ 1 ’ ab / 

U "7 

ur "T 
vJ O 


OPT 3 

CMP 

# n S" 

5 SAVE 

420 2 

A429 

DO 

— 1 * 

O 2 



BNE 

OPT 4 


430 : 

A42B 

40 

D 6 

R 8 


JMP 

b H v b 


440 2 

A42E 

p 9 

46 


OPT 4 

CMP 

# 15 F !! 

$ ? FORM PRINT 

450 2 

A 4 3 O 

Do 

03 



BNE 

OPT 5 


460 2 

A -4 **ft 

H 4 -X’ ab 

40 

3F 

A 4 


JMP 

FPRNT 


470 - 

If '«* u 

A 4 -2 

09 

4D 


7i p j 3 

CMP 

4 51 jvj ” 

5 7 MEMORY 

A P A a 

TOV a 

r, « “ft* “7 

R 4 2 / 

DO 

ECO 



BNE 

OPT BET 


490: 

A 43 9 

20 

8 A 

B7 


JSR 

MEMORY 


500 2 

A43C 

40 

F 1 

ft «M^» 

R 2 

n 

Jf 

JMP 

OPT I N 1 







3 MM* ***** ***** ***** ••»«» ***** ***** ***** ***** *1 

s ROUTINE TO 

BET AND 

■ ••••• ***** ***** ••*♦« ***** mm* ***M ***** ***** .MM 

PRINT DATA 






is BY DEf 

- 1 NED 

FORMAT 



760 


7 7 O : 


***** **♦♦ ** 

/ 8 U s 


7 W f j » 

800 : 
8 1 O li 


M ' f } " 

.1 • II 


U. T .tn. *«' U 

830 s 
840 s 


8 b u 2 


wUU a 


H 7 U 2 


880 5 


oVU * 


900 : 

Q 1 (•) - 

X V »: 


V **‘ ( ) ” 

»* *t»»» "-* !? 


”V 


W j ** 

J ■— * IJ 


?40 s 


950 £ 


u 

9 6 0 s 
970 2 
980 2 

PQn » 

; •• ***■ n 


1 000 3 


1 0 1 0 2 
1020 : 
1 U3U 2 
i 040 : 
1 050 s 
1 060 s 

1 M ‘7 O “ 

1 O 8 V 2 
1 0 9 0 s 
I 1 00 2 
1 i 1 0 2 
i 1 20 s 
1 1 30 2 


1 i i » 

4. 4. *T 'J a 


■i •! V™ .. 

i i jU 2 


1 1 60 2 
i 1 70 2 
1 1 80 2 
1 1 90 2 

4 P". 

1 ! ! I ) " 

... a... **** u 


**. n ‘**1* r" 

H 4 o 7 

A442 
f -j 4 4 5 

|«f>| f«|i tn|< y 

A 4 4 A 


A44C 


$ 44 F 

A45 1 
A453 

M 4 ...J to 

A 45 / 
A 4b A 
A 4 b C 
A45E 
A 4 £> O 

f* /* / •*** 

A 4 c* 4 

f\ ft -• **n* 
pi ^ :b 

/*. ft f /i 

H 4 to 4 

n n / / 

H 4 to co 
H 4 to / 
H 4 to* 7 

A46B 
A46D 
A 46h 

hi 4 / i 

/*. « ”7 "T 

A 4 / -j* 
$474 


/\ ft •—? ***y 

hi 4 / 7 


A 4 79 
A 4 7 A 
A 4 7 B 
A47D 
A 4 / h 
A 480 
A482 

« n •••• •*•*. 

i a**. 

A 4 c;* to 


A 4 87 


/■-. .•"( Oto 

1 4 b o 


hi** 

A 4 b A 
A48C 

to 


hi' 

A 4 V U 
A492 


t % ; : i : .*( 

hi 4 ~7 4 


hi 4 '7 to* 


.to O 
20 


A 2 1 


A to 


hi 7 


85 


•• M 

A O 


hi 

B 1 

ton 

I ♦*•♦ 

to hr 


C 8 


E 6 
C A 
DO 


to. to 


A 7 


to 

to to 


hi .to 


AO 

•j to 
.1 *•._* 

20 


/•-. ter 
hi -to 


OA 


hi 8 


•! 

1 


i "! W 
v / 


J.**.* U.J 

84 
20 
A 4 


to to 
to *_..* 


r - > *i 

b .l 
F o 


to 4 


hi ■ 

he 6 


91 
A 5 
DO 
A 6 


6 


V i i 


EC 

01 


7 


00 

OE 


7 P" 

•t*~ * 

OB 


DO 09 


****** x****t 

to to* 


76 


FI 


ij h- 
00 


01 


71 7 

to * 


76 


2 F 


H U 


1 A 


>•** *««>. 


*7 p 


ic: 


U-to 


D3 


D 1 


OE 

•*. »M* 

( )Q 


/ 6 


** PRINT DATA FORMAT ** 


LENG 1 H 
FIRST BYTE 


MAXFLD * 2 
FIELD NUMBER 


TO 


F'RNT 


SECOND BYTE 


WHAT TO DO AFTER FLD 


$BO-$B 9= NUMBER 
$93 (S) —SINGLE 
< D ) = DOUBLE 
( T ) =TR I RLE 


OF SPACE 




L I NE 


H 4 

$94 

$90 


L I NE 


***** r** «•**• t*\ 

r Ic. he u 

FEED 


LINE FEED 


(P) =PACK DATA 


I 


E. THROW 
SPACES 


1 ay l fft 

IN FIELD DATA 


PFRMPT 


P 0 1 N T E R T O B E 6 1 N N I N G 
OF PRINT DATA 


NjpYT hVTP 

I -* Lm A 1 £0 f t Cm. 

next byte 


F7 B5 FPRNT 


1C E 


■* to 


20 BC B9 


• *M ...» 

B 9 


W 4 M MM •»*. 

he OO L-F 


.»•_ ***»• *•*< 

F U b b 


MM toil* 

B 3 


FRMPA 1 


FRMPA2 

FRMPA3 


FRMF'T 1 


7 r"- r-! 

J to K 

JSR 


LDX 
JSR 
LDX 
J S R 
LDA 
ST A 
LD y 

p** **!*• % j 

to i Y 

LDX 

LDA 

BEGS 

CMP 


BNE 
I NY 
I NY 


T N C 


4 . 

DEX 

BNE 


I NC 
LDA 


c 

M*. 


jT a 


LDX 

LDY 


CL r 


. w 

JSR 

LDA 

ASL 

TAY 


t 7**, 

L. 


ORA 
TAX 
STY 
JSR 
L D Y 
I NY 
LDA 
BEQ 
LDY 


T K | to' 
J. iMb 


Cj /\ 

to I hi 

LDA 

BNE 
• ***• . * 
LDX 


LEFT MARGIN 

LINES BET W E E N R E C 0 R D S 


CHANGE OR PRINT. . . 


s’ LEFT MG LINE BETW 


CLERTB 
CLRFLD 
#22 

MESS AG 
#37 

MESS AG 
#1 

TEMP 2 
#0 

•*•*. . r H.f m... 

i Y r h::. 

MAXFLD 
(PFRMPT) , Y 

FRMPA 2 5 END OF PRINT DATA 


a a a 


s SET COUNTER TO ’ 1 


5 CLEAR ’ Y & ORDER FLAG 
; GET END OF DATA 


TEMP 2 
FRMPA3 


5 NOT RIGHT ORDER 
: NEXT DATA 


Tirjv :::■ v 

» *♦*•• • *l»w 


: UP NUMBER 


FRMPA 1 
i YPE 
#0 

TEMP 2 
# 1 


NOT END YET 


: SET FLAG -NO ORDER 


5 ZERO ORDER NUMBER 


#39 


PLO 




TEMP 2 


5 TIMES TWO 


(PFRMPT) „ Y 

#$80 2 MAKE INTO FIELD 


TEMP 3 
FLDFWD 


,****. jT% ! ! **** 

2 to hi V “ 




; GO FIND FIELD 


TEMPS 


s GET r Y 


(PFRMPT) ,Y ; GET WHAT TO DO 
FRMP20 ; TYPE ’ 0 IS END 

sPRINT IT IN FIELD 


COLNUM 
COLNUM 
( SoNL I N j 
TYPE 
FRMP 1 9 
TEMP2 


Y 


MM -MM Mt** r*** t .-** 

a b he i r L.. H b 

; DO NT PRINT ORDER 


s GET PRINT NUMBER 


121 0 s 

A 4 9 h 

to" to 

»••«> 'mu* 




1 N X 


« PLUS 1 FOR ORDER 

1 220- 

/*•, .4 nn 
H 4 7 7 

8 A 




T X A 



1 230 2 

hi 4 T hi 

A .4 

**»j» 

D3 



L D Y 

COLNUM 


1 240 2 

hi 4 7 L 

j.i. o 

9D 

A to 
It to 


“f to to' 

D I VTEN 

; DIVIDE BY 10 

1 7 30 » 

A49F 

E6 

•MM a 

/ to 


FRMP 1 9 

1 MC 

TEMP 2 

;UP FOR NEXT TIME 

1260: 

A 4 A 1 

.-v nr 
MJ 

7 to 



LDA 

TEMP 2 


1 “7(> 

4. .U / V II 

hi 4 hi to 

L-D 

00 

rp 

w * 


CMP 

MAXFLD 

; TO END YET 

i '-JOA « 
i j:„ -.2 » 

A 4 H 6 

Q f“« 

,**M p »*MJ 

C / 



BCC 

FRMPT 1 

; NO GO AGAIN 

1 toOO s 

H4Ho 

A •”“* 
r1.x- 

IS 


FRMF'20 

LDX 

#24 

; PR I N T L E F T M A R G I N 

1 3 1 0 s 

/*-. A A. r'\ 

H *t hi hi 

hi U 

a**. 

oo 



LDY 

#0 


ITT* u 

A 4 AC 

IS 




^hm* taaaa mi/ 



1 330 s 

A4AD 

20 

FO 

JMM Mi** 

r r 


ij !;”> R 

PLOT 


1340: 

A4B0 

AD 

00 

f*** r~ 

Lr 


LDA 

MAXFLD 


. 7cr , 

4. ■«.* ’to u 

A4B3 

O A 




ASL 


5 TIMES 2 

1 3 AO - 

/♦, n ~t**. rt 

H4to4 

AS 




TAY 



1 3*70 « 

A4B5 

B 1 

7 p 

4m* • 



LDA 

( P FRMPT 

) , Y 

1 3 SO : 

R 4 b / 

85 

*»M« ***** 
», *«*♦ 



****** **r* r% 

to 1 H 

PO I NTC 

5 SAVE LEFT MARGIN 

1 390 2 

hi 4 B V 

C to* 




I NY 



1 400 s 

A4BA 

84 

•**•7 / 

/ to 



STY 

TEMP 2 

; SAVE POINTER 

1 4 1 0 2 

A4BC 

AO 

OD 



LDY 

# 1 3 


1420: 

A4BE 

20 

ton 

•* Am* 

A Q 
Ho 


“f *.M j .M. 

J toR 

D I VTEN 


1440 s 

A 4* C 1 

A4 

•*~f J 

/ tj 



LDY 

TFMP7 

1 •»»*» t » * aJvaa 

; GET POINTER 

1 450 s 

A4C3 

B 1 

7 p 

4m. 1 



LDA 

<P FRMPT) , Y 

1460: 

hi 4 L 5 

85 

"T / 

to to 



r“ -r /\ 
■:z I h*l 

PO I NTC 4- 

1 s SAVE LINE 8 BE i WEEN 

1470: 

fl. ,.*! *"V 

i.O via. { v 

I : * V**.* V 

AO 

•*“ t:::; 



LDY 

#37 


1480: 

A4C9 

toO 

9D 

AS 


J SR 

D I VTEN 


1 500 :: 

A4CC 

7' O 

|J»M •#* 

“7 

n / 

B5 

H 

FRMFT3 

JSR 

6ETCHR 

aaaa aaaaa aaaaa a a jaaa* a a aaaa taaa aaaaa aaaa P* a \ 

2 GE i KE y‘F PE b S 

1 51 0 s 

A4CF 

C 9 

C" o 
to o 



CtlP 

#F‘F7 

>t af fr *7 *> 

J. J4V a 

A4D 1 

DO 

0 3 



BNE 

FRMPT4 


t Mtb aaaa. aa 

153u: 

A A r*- ."T 

hi 4 U -2* 

4C 

EB 

A 3 

FRMP 3 1 

JMP 

OPT I ON 


1 540 s 

A4D6 

i * O 

50 


FRMPT4 

CMP 

# p !! 

2 PRINT 

i 55U 2 

A4D8 

DO 

***r 

Uto 



BNE 

FRMP 4 4 


1 560 : 

A 4 0 A 

4C 

ut 

A to 


JMP 

FRMTTT 

; NO CHANGES 

1 570 2 

A4DD 

i” q 

L- *7 

b 7 


FRMP 4 4 

CMP 

# " W u 

;WP FILE 

1580; 

A4DF 

DO 

03 



BNE 

FRMP 4 5 


1 5 9 0 s 

A4E 1 

4C 

■.j .tx 

A 6 


JMP 

FRMWWW 

2 GO CREATE WP FILE 

1 600 s 

A 4- E 4' 

C9 

,*j ***** 

*T O 


FRMP 4 5 

CMP 

#"C" 

2 ? CHANGE 

161 0 s 

hi 4 to to 

DO 

E4 



BNE 

FRMPT 3 


1 to 20 2 

A4ES 

-•*! 1 
>j*t* ***’ 

F 7 

72*nr 

»a»»* W 


JSR 

L-toitoK i b 

; CLEAR BOTH 

1 630 : 

hi 4 C. b 

*a 

H .to 

OE 



LDX 

#14 

ENTER PRINT,,,,, 

1 640 s 

af aaaaa a**i 

h 4 b. D 

•?n 

BC 

B9 


JSR 

MESS AG 


1 650 s 

A4F0 

A i***l 

hi *7 

00 



LDA 

#0 


1 A, An » 

X v.*,' L.* a 

A4F2 

t 4,, s Hll* 

Q 

FF 



STA 

MESGPL 

; RESET MESSAGE CLEAR 

1 670 2 

A4F4 

7 O 

nr r- 
to to 

P 7 

•M> 4*- 

FRMP 46 

JSR 

ENT A 1 

; GO CHNG FORMAT 






r .._ r — 

q KtoHU 

IN NE 

W PRINT 

DA I A 

1710: 

H4r / 

BO 

DA 


FRMP 4 1 

‘/'a I f • C1‘ 

t— j | ;**% 

4*** W W 

FRMP3 1 

; TEST FOR <F7> 

1 77*0 ■ 

A4F9 

A D 

00 

CF 


LDA 

MAXFLD 

; G E T N U M B E R 0 F F I E L D S 

1 730 : 

A4FC 

OH 




ASL 


; TIMES 2 

1740; 

A4FD 

AS 




TAY 



1 750 s 

A4FE 

o c:< 

w ; ,.5 




DEY 


; MAKE START AT ZERO 

1 760 2 

A4FF 

c> 4 

7 6 



S i Y 

TEMP 2 

5 SAVE IT 

1770 s 

A50 1 

A to* 
hi 7 

00 



L D H 

#0 


1 780 2 

A 50 3 

i*“*s 111!" 

O vJ 

OE 



<au aaaaa 

to i f-i 

TYPE 

; CLEAR TYPE-FLAG 

1790: 

A 5 Ob 

91 

2F 


FRMP 40 

ST A 

( P FRMPT 

) , Y ; CLEAR ARRAY 

1 800 2 

A507 

88 




D to Y 



1 8 1 0 s 

A 5 OB 

n o 

4m* *.** 

FB 



BNE 

FRMP 40 


1830: 

«* ;*♦«> 4* 

r‘ V *«•* * t a* • 

hi ~J -J hi 

A to 

0 1 



LDX 

# 1 

; CRSR AT TOP 

1 84u s 

A50C 

AO 

alia- 



LDY 

#39 


1 850 :: 

hi DO to. 

18 




] T*+~- 

• ••**. '***•" 



1 6 60 2 

A cr r- 
hl -..J *_- i } 

•••» .« 
20 

F 0 

FF 


JSR 

Pi rrr 



1 '7 f”’s » 

■la '-o’ / 3 

fi O x 2 

H T 

..... MW 



L..DA 

#$FF 

“ — 

1 880 i; 

A b 1 4 

O nr 
! .X 

“*r **‘* 4 | 



S FA 

CF I ELD 

; CURRENT FIELD TO - 

1 h90 ■ 

A 5 1 6 

!*•• a»» 4 

82 


FRMF‘42 

INC 

L/ 1™ J. !:::. L.. i., ! 


1 W i j i ‘t « 

4. r n 

hi %J I O 

a nr 

h*i 

8 2 



LDA 

CF I ELD 


1 9 1 0 : 

a cr 4 /% 
hi vJ 1 ri 

CD 

** 4* 

uo 

i ' 
Li- 1 


CMP 

MAXFLD 


1 Q 7’ i i » 

4* • *1 w ■ (< 

*♦ f»Ml 1 MM 

A5 1 D 

DO 

(“j y t 



BNE 

FRMP55 


1 930 s 

m -_j 1 r 

4C 

CB 

AS 

It 

JMP 

FRMPS 

; SET UP DONE 

1 950 s 

A522 

A 2 

81 


FEMF'55 

LDX 

# $81 


•j 9 A n ■> 

fi* • W V H 

M --J .A. A 

7= ("j 

4*** •* 

1A 

B3 


.1 p.p 

FL DFWD 

3 GO TO NEXT FIELD 

-5 ***t ***r 

1 W / 5 i » 
■i. / / u 

H vJ 2 / 

|*»*| V*»^* 

D3 



LDY 

COLNUM 


1 980 s 

A529 

El 

Di 



LDA 

(SCNLIN) , 

Y 3 GET CODE 

I 9 9 U £ 

•• MM* **M Mm 

.* 2... • jii 

hi -.j .x. Jh 

{ ”V 

‘.m* I* 

A0 



CMP 

#160 

: REV SPACE 

2000 “ 

a ^2 r> n 

hi 4.» x.* 1 

F 0 

Ex 7 



BEQ 

FRMF'42 

3 NO ENTRY 

20 1 0 s 

.**. Ml" ,4 m* |MM 

M V«; 4m r 

C9 

7 l -J 



CMP 

# 1 44 

li REV P 

2020 * 

.a cr "t** i 

X 

F 0 

2D 



BEU 

FRMPT6 

2030 s 

«MM iMf. *•••• 

f*i vJ -2 -2 

C v 

9 3 



CMP 

# 1 47 

REV ? 3 

2040 " 

M imm Mm i>»i> 

2”, ■: 
ri w •-.* w 

***** .** 
r U 

’ Q 

4*m / 



BEQ 

FRMPT6 


2050 s 

a j:,t "7* 
R ...J X> / 

C9 

84 



CMP 

#132 

; REV J D 

■ 2 O O ** 

‘♦■ <r w *-* a 

A 53 9 

P0 

““i nr 
.|.*. '■*•*’ 



B E u 

FRMPT6 


7* ! ** i *7 ’O n 

4*M V' »• V’ II 

h-i -2 X> b 

C9 

l 44 **: /! 

”V v*.i* 



Clip 

#148 

; REV r T 

20 80 S 

M Mtli MM* *f*« 

hjPL' 

F0 

•" j 



BEQ 

PRMPT6 


2090 s 

CT‘ *T 

hi -„.i r 

C 9 

Bo 



CMP 

# 1 76 

; REV ? 0 

2 1 OO " 

a, *** r •«’ » 

n r*” ,7 *i 

h54 1 

90 

04 



BCC 

FRMF'TS 


v i i o - 

•I— i. 4* *-** II 

!™ /! T 

H •. J *T *X« 

C9 

BA 



CMP 

#186 

; REV 9 + 1 

/***, -| /*♦♦. -**. 
.A. X 2 U Z 

A 54 5 

90 

1 9 



BCC 

F RMPT 6 


7- 1 ‘7 O K 

A547 

a nr 
hi U 

D3 


FRMF'TS 

L. D A 

COLNUM 

3 SAVE POSITION 

2 1 4 0 z 

.-a c::* .*» “> 
hiwJH- 7 

/i r*j 

id 




F'HA 



7 1 "".o - 

• 1 m. »i. W *M* u 

a r.r . *} a 
hi -.J *+ hi 

fi 5 

D6 



i n 

lUh 

L I NNUM 


v 1 AO ■» 

4~* 4. W V II 

A54C 

48 




F* i-i f i 



2170: 

A54D 

A .**A 

H 

24 



LDX 

#36 

3 ’ INVALID CHAR. . . 

2 1 80 s 

A54F 

20 

BC 

p! 9 


I 44 * 4 - {“*: 
♦»* *n/ i *i 

ME 8 SAG 


*7 1 Qn n 

•Ui 4. -■ •■.* i: 

A nr nr *~y 

ri w \J x. 

88 




1” ! L A 

a 

« 

RESTORE POSITION 

"“*200 » 

J»«» 4m4 4 * M* B 

•* tmi pw« ***** 

H5"22 

A A 

hi hi 




T A X 



•7' 7 1 n « 

•Um lU 4. *U* B 

A554 

68 




I'" 1 L A 



.• ••• i ! a 

4m 4ti< 4 *m 'h‘ a 

A 55 5 

AS 




TAY 



2230 z 

M j»«»- ***** * 

H 2 2 O 

18 




CLC 



V 7‘ 4 i'" > a 

Acrnr-r 

r i w w .* 

20 

F 0 

FF 


J SR 

pi pr 


77‘ { “,0 » 

4«i» il«». "n«i "*»’ || 

A cr a 
f"! -..J %_J ri 

20 

*.*»• j**«i 

/ '*y 

B !x: 


J SR 

ENID 3 

; GO TRY AGAIN 

/— * i" M . .**. 

.•'*--.1 i a 
4 *h 4m W a 

A55D 

4C 

t**** -***.♦ 

F 7 

A A 
h*l *T 


JMP 

FRMF'4 1 


•7» Q »•“} « 

j:.. A. 7' a 

H 5 o 7- 1 

Q nr 
O •- J 

0E 


M 

FRMPT6 

ST A 

TYPE : 

SAVE TYPE 

/ W l } w 

4«>» 4m / '#» li 

A 56 2 

A >‘”i 
H 7 

0 0 



L D t*i 

#0 


2300 z 

A564 

r”i nr 
O _< 

”7 nr 
/ *„j 



S T fi 

TEMP 

3 CLEAR PRINT NUMBER 

2 2 i O £ 

a cr / 
hi O O 

C8 




I NY 



2 7; 2 O " 

4u> ‘m. 1 4m v a 

A567 

CO 

.X. o 



CRY 

#40 

3 TEST FOR EOL 

•4m mu >•••• •< 

V 1 ! * 

a nr / o 
}-i .J <b 7 

B0 

*7* nr 
■X* -..J 



B C 8 

FRM 1 0 


2340 s 

A56B 

Bl 

Di 



LDA 

(SCNLIN) , 

Y ; GET NUMBER 

7"V™10 “ 

4... ‘m. 1 n 

A56D 

1 0 

3 1 



BPL 

FRM 1 0 

: NOT INVERSE 

**“.* / .*♦. 

. *•. .-V., { I * 

4m *m’ W U 

A56F 

C9 

A0 



CMP 

# 1 60 

3 REV SPACE 

i"** **r *“T .**. 

2 -2 / U £ 

A57 i 

F0 

•m* ••«* 

r\ 

*!■*■ i*«' 



B E Q 

FRM10 


27Pn a 

J— '.»• w 11 

a r« -7 ~*r 

H / 2> 

C9 

fcil 



CMP 

# 1 77 

3 REV ? 1 

**M •».» .. 

V --jWf f « 

A nr “7 nr 
i“i ™J / U 

9 O 
* '•*' 

DO 



BCC 

FRMF'TS 


2400: 

nr —r ““ 
ri w / / 

C9 

B A 



CMP 

# 1 86 

z REV 9 + 1 

2410: 

A 5 / V 

P )“’[ 

mi* •*,’ 

cc 



B u d 

FRMF'TS 


2420 s 

A57B 

2 9 

OF 



AND 

#$0F 


2430 £ 

hi •„_< / U 

85 

y ...» 

/ w 



ST A 

TEMP 

; OK- SAVE I T 

2440 “ 

Jmi 1 1 m* a 

A57F 

C8 




I NY 



2450: 

A580 

Co 

■..* MM 

2d 



CF'Y 

# 4 L 

3 TEST FOR EOL 

2460 s 

ri ■..J 

P o 

Ah’ 

1C 



BCS 

FRM 1 0 


V 4 / l '! ** 
x- T j it 

A 5 6 4 

Bl 

DI 



L U hi 

(SCNLIN) , 

Y ; TEST FOR 2 DIGIT 

2480 s 

A 586 

1 0 

18 



BPL 

FRM 1 0 

; NOT INVERSE 

2490: 

A 588 

p Q 

'.Ml* / 

A 0 



CMP 

# 1 60 

; REV SPACE 

2 i::: ;oo - 

A58A 

***♦■ -» 
h O 

14 



BEQ 

FRM 10 

3 NO-DONE 

•7-; 1 (“) .. 

•t— *..«• X v* a 

A5SC 

r-\ 
L, 7 

B0 



CMP 

# 1 76 

; REV r 0 

!•". £7* r*~. ,**, 

i •• i ) u 

4- n »»«»' 4mi *m* a 

A58E 

QO 

B / 



3b l, L 

FRMPTF 



‘7 s —i ”-T n « 

2540 s 

a* 

_ 3 a**» H »1 1 * ‘l a. 

•w vJ --J %.* u 

m »*.*. mm aa 
* "* * M * t 1 j “a 

m%j rU 
ARQ7 

1 1 / aJaaa 

A ?*~* ,**n « 

h5 94 

”**• i**”i 

L 7 
B0 

7 Q 

Bh 

.O ■ J* 

M H.M 

oF- 


CMP 

r» r- "• C’- 
JD L.- O 

AND 

# 1 86 

FRMPT5 

#$0F 


s REV -9-1- 1 

jLJuU <t 

A cr Q a 
rl -,„i T O 

4 8 



P H A 




^ cr ~y „ 

.L. u / U £ 

7*700 « 

•1m. w 9 

A r- n **? 

hi vJ 7 / 

A59A 

****** 

2 U 
68 

9i 

A 8 

J SR 
PLA 

T I MIEN 


; MULTIPLY TEMP BY 10 

r- .•***, 

.*• j **v I J w 
a— W .* %.' if 

A59B 

18 



CLC 




2£dUU S 

A59C 

65 

/ 5 


ADC 

TEMP 


; A D D TO P R I N T N U M B E R 

7 A 1 O ■ 

•l- W X V ; It 

Hjt’L 

H 7 

•**y f*“* 

/ I *; 


STA 

TEMP 


; TEMP IS PRINT NUMBER 

2 b 20 i: 

A5AO 

1 ) ,4 

**a »•••* 

U«U JHM 

/ *- J 

FRM 1 0 

ASL 

TEMP 

*1 

TIMES 2 FOR POSIT 

2630 s 

A, nr a 
M V J M atX 

f.tM aa 

F u 

-J **""*! 

X 7 


BEQ 

FRM20 


; NO ORDER SET 

2640 5 

A5A4 

0 4 

/ 

/ O 


LDY 

T 1” M C' v 

i aaaaa 1 if alaaa 


; GET MAX FIELD NUMBER 

v A ! 7 /") « 

•1m. W W ’m‘ |l 

a sir / 
hi vJ H O 

C8 



I NY 




2660 s 

HO A / 

C4 

••7 nr 

/ a uJ 


CRY 

TEMP 


s IS ORDER NUMBER OK 

v A 70 - 

4». It 

m ..... a. aaaa 

A5A9 

90 

9C 


BCC 

FRMPT5 


; NO- ERR OR 

2680 s 

h5hB 

A 4 

/ ui 


LDY 

TEMP 


2 YES-GO UN 

7000 « 

ASAD 

O Q 
D O 



DEY 


:: 

<f 

FT 2— CORRECT LOCATON 

7700 " 

Jm. / u 

A5AE 

88 


FRM 1 4 

DEY 


■ 

Jl 

MOVE TO PART 1 

7 7 i ( ) * 

4m. -* 4. II 

A £7 A r~ 
HuHr 

A 6 

.*•**. .**•% 
H •* 

aaaa* 4 m. 


LDX 

CF I ELD 


; GET FIELD NUMBER 

r*-. .***♦. .**. 

.•* / ! ) » 
a... / 4 u. '«• tt 

A5B 1 

E 8 



I N X 


t« 

? 

UP ONE TO START AT 1 

a 7 bO s 

A5B2 

8 A 



T X A 




7 7 4 O * 

/ T *u* 19 

A5B3 

9 1 

UU jaaaa 

4«.« 5 


STA 

( PFRMF'T ) 

H 

Y 5 STORE IT 

7 750 - 

4m. -* W V «S 

A nr cr 
w 7 w 

P Q 
O- O 



I NY 




4.U / ‘.rM? ^m* 3 

sr t* s 

hi %J b CD 

AS 

0E 


L D A 

TYPE 


“ GFT TYF'F 

;| L/ u.. 2 lit L... 

7 7 7 O •* 

A5B8 

91 

2F 


aaaa aaaaa aa 

w . hi 

(PFRMPT) 

Jl 

Y 

7 O j* 

/ O i. 

A5BA 

4C 

1 fe 

a cr 
M 

11 

JMP 

FRMP42 



2800 s 

A5BD 

.**. ..**• 
HU 

01 

ft 

FRM 20 

LDY 

# 1 


5 MOVE TO PART 2 

7 H 1 O « 

a*- W 4 . v‘ K 

A5BF 

B 1 

UU |U4. 

2 r 

FRM 2 1 

L.DA 

(PFRMPT) 

? 

a. « 

Y 

7070“ 

a... w 4 .m ’«* « 

HjL I 

F 0 

EB 


BEQ 

FRM 1 4 


; FIND FIRST HOLE 

•IQTfi a 

A nr ”r 

C8 



I NY 




2840 s 

A ~r f • /I 
H w Lj- *t 

r“ k r ** 1 

Lt 0 



I NY 




7 o 0 .. 

4m. W W V It 

A »=-*■ r**- cr 

C 4 

76 


CRY 

TEMP 2 


; TEST FOR END 

mm | m«* ♦ # a* 

4 H6U 2 

A5C7 

90 

F6 


BCC 

FRM 2 1 


; NO-TRY AGAIN 

2870 s 

A5C9 

B0 

E3 

u 

Hi r” 

rn i ***v 

*av* 'mm 1 

FRM 1 4 


; ALWAYS-STORE AT END 

2890 2 

A 0 C B 

AS 

0E 

F Eli PS 

LDA 

TYPE 


ANYTHING DEFINED 

7900 ■ 

A5CD 

DO 

0 B 


BNE 

FRMPSO 



^iO 1 n « 

7 1 U 2 

A5CF 

20 

Op 

— U«* 

r*, a* 

b CD 

J SR 

CLEARS 



-•"***. 

W 7i 1 « 

•U / alu. V u 

H O D O 

A all 

T 

•X. 


LDX 

•tl 1 O 


S’ NO FORMAT. . » 

2930 2 

A5D4 

20 

BC 

r.« q 

i~ s 7 

J SR 

a • .aaa* aaaa aaaa aa aaaa 

M L b b A b 



7040 - 

.Uu / J 4 m* tl 

A5D7 

4C 

F4 

H4 

JMP 

FRMF'46 


i bO 1 R Y A G A I N 

7 Q A O « 

4u> / W 'u* II 

A nr: - ?*S A 

}-i U 1-1 

20 

0 B 

n 

B6 FRMF'SO 

J S R 

CLEARS 



**“f 

b | | » 

a**- .* -* *m’ d 

A5DD 

HZ 

10 


LDX 

# 1 6 

11 

II 

’ LEFT MARGIN. . . 

2980 2 

AS DF 

•M* .a. 

20 

BC 

B9 

J SR 

ME SB AG 



2990 s 

A5E2 

A0 

0D 


LDY 

# 1 3 



***t* ,**, 

.juUU s 

A5E4 

A cr 
hi U 

aaaaa aaaaa 

•T 

•«.* w 


LDA 

PO I NTC 

tt 

f 

GET PREV LEFT MARGIN 

mm. *• a aa 

oU 1 U S 

uriEtj 

20 

1 1 

A O 
1**T 

J SR 

be 1 b V i 

tl 

GO GET TWO BYTES 

3020 s 

A5E9 

B0 

5E 


BCS 

FRMTTE 

IS 

<F7> EXIT 

*7 0 7 0 « 

“-*** *aa.* *„^ a 

A5EB 

A /I 

• . »•* A.|» 

7 6 


LDY 

TEMP 2 

tl 

? 

GET TABLE END 

3040 s 

A5ED 

C8 



I NY 




3050 s 

U U.M •*»•* J-*** 

uO( **: j*** 

QKT 

CD 

..... ^...a 

*X‘« u 


ST A 

PO I NTC 



3 0 6 0 s 

nr r** 

Hjr U 

9 1 

1**" 
* Ml. 

4«« I 

*| 

STA 

< PFRMPT ) 

tl 

Y 

3080 s 

A nr r" 

H <l J f aX 

20 

0B 

a 

B6 

J SR 

CLEARS 



7 / 1 w f 1 •< 

•mm’ 'm' / ’m* U 

m jm.. *a..a .mm 

ASF 0 

i"1 al„ 

OF 


LDX 

# 1 5 

11 

Jf 

’ HOW MANY LINES... 

3 i 00 s 

ASF 7 

20 

BC 

B9 

J SR 

M E. b S A G 



3 1 1 0 2 

A5FA 

A0 

r**. a". 

Si ! 

.1-.. a* 


i DY 

#32 



7 1 7 O «* 

•™' X -u~ *_• 0 

ASFC 

AS 

***f* / 


L D f'i 

PO I NTC+ 1 


; GET PR E V L I N E S B E T W N 

“T .1 

•j. 1 .jU s 

A5FE 

20 

1 1 

A 8 

J SR 

GET BYT 



7 1 40 « 

V 1 4. 1 V u 

A 60 1 

B0 

46 


BCS 

FRMTTE 

U 

H 

*»..« .uw a »*»•• a a aaa aaaaa 

F 7 E Alf 

3 1 50 s 

M j aa aaaaa 

fi6U-j 

|M«j •**• j» 

"7 /•*. 

tata 


LDY 

TEMP 2 

tt 

GET TABLE END 

3 1 60 s 

H 7 U S 

C8 



I NY 




3 1 70 s 

H O 5 -..’ 5 >7 

C8 



I NY 




3 180 s 

H6U / 

W 'm.i 

»*.y- . 

o4d 


“r a 
a hi 

PO I NTC -4- 1 




1 w 2 

A 6 0 9 

9 1 

r- 
j;l r* 



/***- *T* A 

CO 1 Hi 

( F'FRIiPT ) 

. Y 

.r B 

4»ti *.«* tS 

H 6 1 J B 

4C 

•**j* •*•#* 

Or 

aiaai /.a|a 

n 

JMF* 

FPRNT 

s BACK TO BEGIN QUEST I Oh 






ii 

; ROUTINE TO 

OPEN PR I 

NTER FILE 






; AND C 

ALL SEARCH TO 

bb 1 Dh 1 A 






; TO PR 

It 

I NT 01 

JT -CLOSET 

:• FILE AT END 

3260s 

A6ut 

20 

0B 

B6 

ft 

F p jvj I” J T 

J •::> R 

CLEARB 


•**»* -**y 

*•, / 1 t »« 

w .*.« .* V u 

A61 1 

A 9 

o o 



L u A 

#0 

; OPE N P R I N T E R F I L E 

w*** «♦* **»♦ ^aa 

bU 2 

f“a a* 4 mm. 

HO 1 O 

CO 

90 



8TA 

STATUS 


pQfi « 

V* .b.. / V K 

A615 

2 0 

BD 

FF 


JSR 

SET NAM 


tm* taaaa aa •• 

j.j.UU 2 

A 6 1 S 

A 9 

04 



L.DA 

#4 


3310s 

A 6 1 h 

A 2 

04 



LDX 

#4 


*»M * HM« tafl • * 

•>, •! ■ f i 3 

•*.' 'm ! iln il 

A 6 1 C 

AO 

oo 

M M 



LDY 

#0 


***** ***** ***** ,« 

•j> j> U 2 

A 6 1 E 

20 

BA 

FF 


J SR 

MM a**aa *«i*i a f.aaa aaaa 

bb 1 Lp b 


**n* ***r n .**. 

■j< .:4U s 

A 6 2 i 

20 

CO 

f f 


JSR 

OPEN 


aaaa* itiit ttm •• 

. pi •: ) s 

A 6 2 4 

/V ^ 

M 4m 

04 



LDX 

#4 


•MM ...at • M 

6 U 2 

A 6 2 6 

MM. aa 
20 

C9 

FF 


JhR 

CHK0UT 

; OPEN OUT CHANNEL 

M*Ja -Mif »nn •• 

.„•> . ji / U 2 

A 6 2 9 

j\ f 

HQ 

.... M 

T U 



LDX 

STATUS 


***** *"t* .**♦*, 

•J:> -J:< S U !! 

A62B 

DO 

09 



BNE 

FFRTER 

; PRINT ERROR 

•3 •«> 9 O s 

A o ^ D 

E6 

1 8 



I NC 

FRTFLG 

5 SET PRINT FLAG 

•j*4UU 2 

."a f .****, !**** 

H o r 

V i"\ 

.Sm. *m* 

C9 

A A 
Hi Hi 


JSR 

SEARCH 

5 GO DO SEARCH 

o4 .1 U 2 

A632 

A 5 

90 



LDA 

STATUS 

5 CHECK ERROR 

'•* V .*1 , 

S 

A too 4 

F0 

05 



BEQ 

FRMTT2 

; NO ERROR 

C«4o*U 2 

A 6 36 

A 2 

14 


FFRTER 

LDX 

#20 

; ’ CHECK PRINTER. . . 

■ j> 4 4 : -j 2 

A 6 3 8 

?o 

•1m. 'm* 

BC 

J"; Q 

Am* / 


JSR 

MESS AG 


***r .*t ***** 

•j>45U 2 

A 6 3 B 

A 9 

O 4* 


FRMTT2 

L.. D A 

#4 

; CLOSE PRINTER FILE 

3460 s 

A 6 3D 

20 

••**_ ...j* 

w •»’ 

FF 


JSR 

CLOSE 


***** .*t ***** ,**. 

2*4 / U 2 

A 6 4 0 

"? fi 

4m. V* 

“■■■ I™ 

L-L- 

j.m. MM* 

P h 


J SR 

CL.RCHN 


3480 s 

H O -Jj 

A 9 

00 



LDA 

#0 


***** *i ***\ .**. 

•*. £L W i * «* 
*m- : r j V* u 

r. / .*t t*»" 

H O 4 -..j 

85 

18 



aaaa aaaaa aa 

b i A 

FRTFLG 

; CLEAR PRINT FLAG 

MM. >*4»> M M 

. •*, r*i ! u ) 3 

*— * -MM* *-a’ *aa* q 

A64 7 

!“• i, j 

03 



BEQ 

FRMTTD 

; ALWAYS 

•**t* r*' **•*, .**. 

1 — i ! 1 *■ 

*-.’ *....* Um. -m* tt 

A649 

O f) 

al*M 

0B 

B6 

f! 

FRMTTE 

JSR 

CLEARS 


•Mil HIM mil M 

w . *. I c 

-.J u 

A64C 

^ f 

4m ‘.7 

i C 

B6 

FRMTTD 

JSR 

CLRFLD 

5 CLEAR FIELDS 

3540 2 

a a a a. aaaaa 

Ao4F 

4C 

p 1 

l all 

,**. ***t* 

M 

s 

JMP 

OPT I N 1 

; GO BACK TO OPTION 






; ROUTINE TO 

OPEN WP 

FILE AND CALL 






i; SEARL-j 

4 TO F 

IND DATA 

-CLOSES FILE 

mm. MM # M 

w i j « 

W W ’m' H 

A 6 o 2 

20 

F 7 


3 

FRMWWW 

J SR 

CLERTB 

5 CLEAR BOTH 

7*AOu 14 

*MB* 'mm 1 *M 7 II 

A i' t™ !'•» 

20 

AB 

A3 


JSR 

SAVFLN 

s SAVE FILE NAME 

36 1 0 2 

■a a aaaaa aaaa 

A 6 b 8 

A 2 

2 / 


FRMWW 1 

LDX 

#39 

; r WP FILE. . . 

362 U 2 

A 6 5 A 

2 O 

♦Um *aa* 

dp 
Jr< L.- 

B 9 


JSR 

MESS AG 


T .* —1* ••*. 

odoU 2 

A65D 

■**7 r f* 4 ^ 

i laa- *«* 

OA 

Ai 


J oh 

GETWFF 

; GET WP FILE NAME 

3640 s 

A 660 

B0 

/ E 



BCS 

FRMW6 

; < F 7 > P R E S 3 E D - E X I T 

•»a^e a j«i*» M 

*. M ~**r i* ’* j 

%M* W W *M* u 

A 6 6 2 

A ,m, » 

A 

■"*) ’*’** 


FRMW2 

LDX 

#34 

5 3 SAVING « ^ - 

***** • / a* 

•...* ;J « 

A >0 6 4 

•ul V 

H p 

By 


JSR 

MESS AG 


l.»f J -Mil M 

2 b / U 2 

A66 7 

““ 

J.M *M* 

07 

fa, «*f. 

HO 


JSR 

DSKTST 

;IS DRIVE ON 

3680 s 

/V f / A 

HttOM 

Mai aa 

Bo 

alii. 1""" 



p p CD 

»ia- ' Vaaa* 'mf 

FRMW3 

; NO-GO TO TAPE 

***r / 

'••MV 1 “ 

W .* «l 

A66C 

O ! “) 

aJaa* *a** 

1 n 

j. .w 

ft. **n* 

ri O 


• m mm m*. 

J SR 

DSKBAM 

; IS DISK FORMATTED 

•mm m.»i h ■* 

■ j. 7 O U 2 

A66F 

B0 

f*»a* *••♦• 

/ 



rj cc- 
DLb 

FRMWW 1 

; N 0 - N 0 W A N T T 0 E I T H E R 

2* / i U 2 

A 67 1 

A9 

00 



LDA 

#0 


v ; 4 m. u 

/*. / — r •**?* 

>-i / o 

' (**) 
.&M. V 

BD 

FF 


JSR 

BET NAM 

; NO FILE NAME 

•M^l tMIJ IMfl r* 

2* / 2«U 2 

M f «... . 

HO / O 

Q 

H T 

OF 



LDA 

# 1 5 


MM. ..... M M 

2* / 4 O 2 

A 6 / 8 

A o 

< t aiM. 

08 



LDX 

#8 


3750 2 

f, / ***V ft 

HO / H 

A0 

OF 



LDY 

# 1 5 


.Mj* M»y a aa 

2* 7 6U s 

A67C 

o n 

4ll‘ *aa * 

BA 

..... r*** 

r r 


JSR 

Q p" T ! P“ Q 

5 SETUP FOR ERROR OPEN 

/ / ( i ** 

•«* / / *M* M 

M * *a»a* aaaaa 

HO / r 

?o 

4an *«a 

L 

FF 


JSR 

OPEN 

; OPEN ERROR CHANNEL 

aaaaa ami Bill a. 

V 1 .* W V K 

#* ^ /**• ***** 
HO 02 

A j ’ 
H O 

08 



LDX 

NAMLEN 


“**1* •*"**# .— **• .**. 

.• Vi i “ 

Q /I 

ri O 

A 

00 



L. D Y 

#0 

; ADD ON %S ? W 

aaa.* am aa ai 

•:>yuu s 

A O ki 6 

B9 

D 3 

ft ***r 

M -J* 

FRMW2 1 

j V'\ s\ 
L U ri 

DSKSEQ h Y 


38 10 s 

A6S9 

9D 

EO 

CF 


MM MM. M 

b 1 A 

F I LNAM „ X 


3820 s 

A 6 8 C 

E8 

• 



I N X 



3830 2 

A68D 

p Q 
o o 




1 NY 



3840 2 

f. t .****. ***** 

Hoot 

,****. .**. 
i ! i 

W V 

(„) 4 



CRY 

#4 

s 4 CNARflntFRR 


“*• *#••• •• 

oojU 2 

r 6 9 ! 0 

V**. 

11! t 

A*.* 

h 4 



BNE 

FRMW2 1 

"T0.iL.r-; «: 

v 1 w w u 

A692 

MM V 

1 * i 

Q &} 

08 



hi T X 

NAMLEN : SAVE NEW LENGTH 

***** M«* m«* h 

-•■b / U 2 

A694 

r% 

H .<1 

08 



LDX 

#s 

3880 s 

R 6 9 6 

A0 

A 7 

V Am- 



LDY 

#2 ; SECONDARY ADDRESS 

0pQA » 

A 6 98 

DO 

05 


n 

BNE 

FRMW4 ; ALWAYS 

0 7 1 U 2 

A 69 A 

20 

t**“ ***v 

r o 

A 0 

FRMW3 

JSR 

SET TAP ; SETUP FOR TAPE 

*T Q "7 ,” 4 * 

•m. 1 / .u.. a 

A69D 

A A 

hU 

0 1 



LDY 

#1 ; TAPE SECONDARY A DDR 

MIU «••* <U^I M 

\W vi ) « 

H6 Vr 

A 9 

04 


FRMW4 

E D A 

#4 

3940 2 

A6A 1 

20 

BA 

FF 


JSR 

SETLFS 

3950 2 

A >6 A 4 

A !"•’ 
HJ 

08 



L.DA 

NAMLEN 

3960 2 

A *- A i 
H 0 1*7 O 

A f ’"\ 
Hai. 

E0 



L DX 

#<FILNAM 

“T Q / ( i u 

HdHo 

Au 

CF 



LDY 

# >F I LNAM 

**n* ,*•*’. 

.1,980 s 

A 6 A A 

20 

***** M 

BD 

p p 


JSR 

SETNAM 

3990 2 

A&AD 

MM. .M. 

2U 

CO 

pp 


JSR 

OPEN 

4000 s 

A 6 B0 

20 

•‘•J* 

•1' 

A "T 
n .• 


JSR 

SEQERR ; TEST ERROR STATUS 

4010: 

A6B3 

B0 

•**t* ft 

■i«4 



DCS 

FRMWER ; YES ERROR 

4U2U 2 

A6B5 

A 2 

04 



LDX 

#4 

4030 2 

r», .* *"r 

Htbjb / 

*• 

U 

C9 

p p 


JSR 

CHKOUT ; OPEN OUT CHANNEL 

40*40 jj 

A6BA 

20 

72 

A ’"V 

R / 


JSR 

SEQERR ; TEST STATUS 

4050 2 

A6BD 

B0 

2 A 



BCS 

FRMWER 

4060 2 

A6BF 

A 9 

80 



LDA 

#■$80 

40 / U s 

A6C i 

t*"*i r.!' 

O 

1 R 
l O 



c:- *t* /“ \ 

V..' 5 H 

PRTFLG ; SET WP FILE FLAG 

4080 2 
4090 2 

R o i™- 1* 

M * «M* * 

20 

B0 

C9 

21 

A A 

nh 


•v /•“, r* m t 

u SR 

SEARCH 

FRMWER : ERROR ON WRITE 

R o O £> 



ECS 

4 1 00 2 

A 6 C 8 

MM . M 

Wl, ,i 

03 



BCC 

FRMW5 ; NO ERROR 

4 1 20 s 

A6CA 

20 

..... . 

A 2 

FRMWE0 

•** H»» MM 

i WW 

j \ 

P R T E R R ; P R I N 1" E R R 0 R 

4 1 30 2 

A6L-U 

A 9 

0 4 


FRMW5 

LDr 

# 4 

4 i 40 2 

HdCr 

“7* 

V 

..... 

w •-*’ 

FF 


J SR 

CLOb E 

4 i 50 2 

A6D2 

A 7" 

H T 

Oh 



L. D A 

#15 ; CLOSE ERROR 

4 1 60 2 

A6D4 

7 O 

L -1> 

F F 


JSR 

CLOSE 

4 i 70 s 

A6D7 

20 

cc 

FF 


7 /n pj 

'.J Or\ 

CLRCHN 

4 i 80 2 

A6DA 

A 9 

00 



LDA 

#0 

4 1 90 : 

A 6 D C 

o 

63 w 

is 



ST A 

PRTFLG ; TURN OFF PRINT FLAG 

4200 2 

A6DE 

05 

9D 



STA 

MSGMOD ; TURN MESSAGES OFF 

42 1 0 2 

A 6 E 0 

20 

BE 

/•. m *i* 

H ■.:« 

FRMW6 

JSR 

R E S F L N ; R E S' T 0 R E FILE N A M E 

4220 2 

A kD 9. 

20 

F A 

B5 


JSR 

CLEAR! ; CLEAR TOP 

4 *2 " \ f) * 

T .u. -«. 3 v it 

A6E6 

4u 

FI 

/i 

R 


JMP 

0 P T I N 1 ; G 0 B A C K T 0 0 P 7 1 0 N 

4250 2 

A6E9 

20 

07 

H O 

!» 

FRMWER 

JSR 

DSKTST ; WP FILE ERROR 

ii 0 o « 

1 .u. w 0 

A6EC 

B0 

DF 



BCS 

F R M W 5 ; T A P E - N 0 E R R 0 R S 

4 v 7 O - 

R o fc. b. 

A 9 

OF 



LDA 

# 1 5 

4280s 

At>i- U 

20 

.«• Mt|. 

U o 

FF” 


JSR 

CLOSE ; CLOSE ERROR CHANNEL 

4290: 

t r** •♦•r 

Htor -I- 

20 

cc 

PP 


JSR 

CLRCHN 

4300 s 

Hor 6 

AD 

00 

Oi "7* 

.u. 


LDA 

I NPBUF 

43 1 0 2 

A6F 9 

,**•*. “**. 
w *7 

36 



CMP 

#"6" ; FILE EXISTS ERROR 

4320 2 

A6F B 

DO 

CD 



BNE 

FRMWEO 

4770 u 

i •-** *-. r •#’ a 

A6FD 

AD 

0 1 

02 


LDA 

I NPBUF+ 1 

4340 2 

A 7 00 

C9 

•♦jr 

*Ji 



CMP 

# n 3 “ 

4350: 

A 7 02 

DO 

L- £) 



BNE 

FRMWEO 

4360 s 

R / 04 

A 2 

17 



LDX 

#23 5 7 REPLACE. . . 

4 -i* / O 2 

A / Oto 

20 

BC 

B9 


JSR 

MESS AG 

4 1> U U 2 

A 70 9 

20 

A 7 

B5 


JSR 

G ETC HR ; GET A CHARACTER 

»f »■♦♦♦ »|M *» t 

4 •!' 9 U 2 

A70C 

f" Q 

W f 

**••• 

'•**. *....' 



CMP 

# n y “ 

4400 s 

A70E 

DO 

BA 



BNE 

FRMWEO ; NO ? Y-SO PRINT ERROR 

44 1 0 2 

A 7 1 0 

A 2 

00 



i n x 

UtM Am* / i 

#0 

M U MM M 

4420 2 

♦*. »**M * .MM 

• V /II 

H / i 

BD 

Am* immf 

D7 

ft 

MO 

FRMWE 1 

LDA 

ERASDT, X 

4430: 

A 7 1 5 

VD 

DD 

CF 


STA 

F I LNAM -3 , X 

4 4 4 O s 

A 7 1 8 

ES 




I NX 


4450 2 

A 7 1 9 

E0 

AT 



CPX 

#3 

4 4 6 V s 

A 7 1 B 

DO 

r 5 



BNE 

FRMWE 1 

4470 s 

A 7 1 D 

A 6 

08 



LDX 

NAMLEN ; DELETE OLD VERSION 

4480 s 

A "7 -i 5"“ 

H / 1 r 

L- !“i 




DEX 

; MINUS l-'SO - J ,W,S 

4490 s 

.-**1 “7 ’****! j-“j 
i**1 / j.%, 

r“i a 
OH 




T X A 


4500 s 

R / ..:L 1 

M j*Mt 

R *£ 

E0 



LDX 

#< F I LNAM 


43 1 V 2 

f-i / 2 3 

1 - 

h-5 




*f*\ aaaaa a a 

DEl X 



45?o « 

r w ti 

/•: •••:•■ •’“*= /} 
H / P 4 

L f-i 




DEX 



4do.U 

A "~f *•••• i:"‘ 

Uaai / a* t 

J » .* 4a*a W 

C A 




DEX 



4 5 4 0 n 

A726 

A 0 

CF 



LDY 

# >F I LNAM 


4550 2 

“ /•“. 
H / uL o 

v O 

.aaaa aa 

91 

7 4* 

ft 

H j.-.'! 


J SR 

DSKER 0 


aa aaaaa * H 

4D6U 1 ; 

hi / b 

Bu 

9 D 



DCS 

FRMWE0 

s GO PRINT ERROR 

4570: 

»™i 7 \7 T” ) 

i 1 / aL. JLr 

AO 

Si -**aa 

Ud 



LDX 

#S 


4580 J! 

rr 

H / zr 

4C 

6 

A 6 


JMP 

FRMW 2 

2 U U S A V b f-i b f-i 1 N 

_aa a aa aa 

4 6)00 a 

A770 

A 5 

BA 


.H 

SEQERF: 

LDA 

CUR DEV 


4610: 

A 7 34 

r w 

W a* 

08 



CMP 

#8 

; IS IT DISK DRIVE 

•ft * ,»♦«■ t* 

4o2U £ 

~*v ,H r .* 

H / • j> o 

9 0 

Ub 



B U L- 

SEQERF 

; NO-NO DISK TEST 

4630 u 

hi / -J«0 

4C 

CO 

A 2 


JMP 

aaaa jaaaa aaaaa aaaaa »•** aaaa 

13 CL 1 tKK 

; TEST L RETURN 

4640 s 

a — ? ~r rr, 
H / -J> n< 

A f"" 
hi :J 

90 


8 El Q El R El 

L D A 

STATUS 


4<b5u s 

- -aa-jr T\ 

A 7 D 

F 0 

0 1 



BEQ 

SEQERD 


4660 2 

*•, aaaja a. a*. 

H / 0»r 

3 El 




o fc. U 



4 b / U 2 

A740 

60 



8 El LiERD 

RTS 








f! 

S ROUT 

INE TO 

PRINT OUT 

' RECORD 






POINTED TO 

BY -PCRRE 

:c~ in 






a ncrc* t 

y a..' U. i 4. 

NED FORMAT 


4730s 

A 741 

A n 

i , . 4 ‘ 
T 1 aiaa* 

00 


H 

PRTREC 

LDX 

#0 


,<i "7 T ZL i") » 

T / r » 

A743 

Q C5 

-7 S“* 
/ 



STX 

TEMP 

; CLEAR ORDER NUMBER 

4 7 5o s 

A 74 5 

..... 

i.L. O 




I NX 



H .aaaa a -• 

4 / b)U 2 

r, "’v ,n y 

H / 4 fo 

8 b:> 

7 8 


t: 

STX 

TEMP4 

; SET NEW LINE 

4780 s 

A748 

20 

Tb 

2*, 

A **♦♦• 

H / 

?! 

PRTRC 1 

JSR 

SEQERR ; 

YES— ! ES 1 ERRuR 

4790 s 

A 7 4 B 

90 

01 



BCC 

FRTR1 1 


4800 s 

A 7 40 

60 




RTS 

n 

Jf 

’C IS SET-RETURN 

4820 2 

A74E 

hj 

aaaaa 

/ o 


ii 

PRTR1 1 

LDA 

TEMP4 ; 

IS IT NEWLINE 

4830 s 

“7 n:r 
hi / %J 

F 0 

09 



BEQ 

PRTRC 2 

£ NO 

4840 s 

A / 52 

r5 

1 8 



LDA 

PRTFLG 

; IS IT DISK DRIVE 

4 8 5 O s 

A ~y *rr /i 

H / %J 4 

30 

.a aaaa. 

ub 



BM I 

PRTRC 2 

; Y E S - N 0 LEFT M A R G I M 

4860 2 

r, cr •* 

H / Ob 

A 6 

*7* 

v-j 



LDX 

P 0 I NTC 

; GET LEFT MARGIN 

4870 s 

hi / >J O 

20 
-W* ‘a** 

04 

Hb 


JSR 

SNDSPC 

; SEND SPACES 

4890 s 

a ~y ur r-,» 
hi / U t > 

AO 
hi 7 

00 


PRTRC 2 

L D hi 

#0 


4900 s 

A / 5D 

P c 7 

C... 1 V..J 

78 



STA 

TEMP 4 

; NOT NEW LINE 

4 9 1 0 s 

aa aaaaa f*»a. aa... 

hi / o r 

A 6 

♦aay* aaaga 

■ j' • j' 



LDX 

aaaa flat aaaa aaaa aaaaa aaaa 

PCRREC 


4920 s 

hi / O I 

A 4 

3 4 



LDY 

PCRREL + 1 


4930 s 

A *«»y „* »•»!• 

H / £> j» 

ja*a- ***» 

LG 




I N X 

ti 

ff 

DUMP LEADING ZERO 

4940s 

ft .n 

H / c>4 

DO 

0 1 



BNE 

PRTR 22 


4950 s 

A **-y / / 
M / O O 

C 8 




I NY 



4 t 6 O s 

_»a •**♦♦ f >mi 

R / o / 

86 

.•* .*■ 
4t»* 4*** 


PRTR22 

q "j" y 

P 0 INTA 


4970 s 

A / 69 

84 

r**. "T 
4b -aa! 1 



o 1 ¥ 

P 0 j NTA+ 1 


4980 2 

A / pB 

A. K”' 
i-“i -„l 

j:::- 

/ 



LDA 

TEMP 

; GET ORDER NUMBER 

•a aaaa aaaa aa 

ZL “v w f ) » 

hi / <b D 

u A 




A S L 

ti 

H 

TIMES TWO 

5000 s 

hi / Ofc. 

A 8 




“1** ft *4 t 

1 A 7 



50 1 0 s 

aa •••V .. aaaa* 

A / 6 h 

p i 

&**• -i- 

2r 



LDA 

(PFRMPT) j, 

Y 5 6 E T F I E L D N U M B E R 

5020 s 

A77 1 

Q 

a|a*a a 

aF 



AND 

mzp 

; MASK FIELD TYPE 

5030 s 

*• aaaaa aaaaa aia»a 

hi / / • j« 

ft ft 

RR 




TAX 



5040 s 

f-i / / 4 

U A 




DEX 

It 

MAKE START AT ’ 0 

5050 - 

W ‘aa* ‘aaaa* tt 

A / / 5 

ED 

07 

C F 


LDA 

FLDTBL . X 


DUbU 2 

A 77 8 

48 




PH A 

it 

ft 

SAVE CURRENT LENGTH 

5070s 

**‘v ***y j***** 

H / / 7 

C 8 




I NY 



5080 2 

f-i 7 7 A 

B 1 

2 F 



LDA 

(PFRMPT) , 

Y 5 GET WHAT TO DO 

••**• «a a* 

‘" j f )’-/! 1 “ 

W -aa* a* •*.* n 

a* aaaa* aaaa* aaaa 

H / / L 

85 

7 6 



STA 

TEMP 2 

; SAVE IT 

5 1 00 : 

*» aaaaa *aaaa aaaa* 

A 7 7 El 

CA 



PRTRC 3 

DEX 



5 1 i 0 s 

a ”7 — " {~ 

hi / / r 

30 

10 



BM I 

PRTRC 4 

5 TEST FOR END 

5 1 2 0 2 

f-i / S 1 

BD 

aa aaaaa 

i 1 7 

**a‘ / 

CF 


LDA 

FLDTBL, X 


5130; 

a “7 a .*1 

R / o *+ 

2 9 

*“J* !***- 

Ah 



AND 

#$3F 

; M A S K T Y P E 0 F F I E L D 

5 1 40 2 

A /86 

18 




CLC 



5 i 50 s 

aa aaaaa aaaa aaaaa 

H / o / 

/ nr 
O w‘ 

O' O 



A D C 

P 0 I NT A 

2 COMPUTE OFFSET 

5 1 60 2 

— 7 r> 
hi / O 7 

O 




pT A 

P 0 I NT A 



nr •* .. 

* I M 1 W 

W 1 / ki 

t*H / i““! H 

• * * MM *•#- 

9 0 

FI 



••••, mm *••* 

14 } t 

4—’ \..s w 

PRTRC3 

5 1 Hu - 

***** •«»» **«• 
A / bD 

!-" A 

to* w 

i »*M ( »*» J* 

to O' 



I NC 

PO I NTA+ j. 

i;:: - -3 da ,, 

to 1 7 U " 

/•*, *”V .*•••, f“- 

H / to r 

DO 

ED 


» 

BNE 

PRTRC3 ; ALWAYS 

H 1 o « 

.j w . i **•* s 

A / V 1 

6 B 



“ 

PRTRC4 

PL A 

; GET LENGTH 

H ' ? i 3 *« 

*•*•* <1*m •*' C 

A 7 V 2 

■"7* 'to 
*>.** ** 

•••fa ••**» 

O'F 


tt 

AND 

#*3F ; MASK OFF TYPE 

In 2 40- 

*«. -!•** I 31 

A 7 9 4 

Hto 

Q 1 

** *i* 


n 

LDX 

STOP K Y ; T E S' T R U N / S T 0 P 

}•»•■ •*♦*. *-*— »- 
jZjU 1! 

hi / 7 to 

EO 

«**^* ***** 
/ r 



CPX 

#%7F 

5^: & os 

H / i to 

DO 

07 



BNE 

PRTRCO ; NO STOP 

5 to 70 “ 

a **7 r*\ a 
H / 7H 

A2 

O 1 
***• *1* 



LDX 

#1 

5 v p O « 

A / 9C 

to O 

Jn* V 

»* 

(„> / 

A 8 


J SR 

S N D OR ; SE N D 0 N E < C R > 

5 v to n * 

a ***? r~ 
h / t r 

♦**p ***** 

0« to 




S E L- 

; SET STOP FLAG 

5300 2 

*• ***** •* ** 
H / nU 

60 




p “j" to; 


5320 2 

hi / hi 1 

A A 

HR 



it 

F’RTRCO 

TAX 


5 to* to* O 2 

A / HA 

A 5 

/ f 6 



LDA 

TEMPS ; TEST TYPE 

j»**« **y ** ** 

T\ **, to*i*i‘ ) n 

w 'm 1 T ***• u 

A ~*y a 

hi / hi ■ ( 

FO 

j** - *• 

-.j to 



B E Q 

PRTRDN ; ZERO IS END 

jj5u ; 

—7 a Z 
s**i / Hto 

C9 

R O 



CMP 

#*A0 ; IS IT ’ S , ’ D , ’ T , ’ P 

=5360 » 

•*.«• ‘*to 5 *J *to lx 

A "“>■ 

hi / hiO 

BO 

OE 



BCS 

PRTRB1 ; NO-DONT PACK 

***** ***** ***** s ** a 
to -to / U a 

h / A A 

to A 




f XA 



A 7 A B 

A to 

^•i to 




TAY 

; PUT END IN •’ Y 

j.;;. ..... .~ - 

i •, 1 i •* 

W v 1 •• V a 

A7AC 

•**• •*•• 
toto 



PRTRB2 

DEY 


H 4 f ! f'J 

H / H U 

***** > ** t 
r*- i J 

i •-*■ 

06 



BEQ 

PRTRR3 

54 1 0 2 

A7AF 

B 1 

a*** -i**« 



L D r 

(POINTA) , Y 

5420 s 

A 7 B 1 

C9 

Hll H 

to U 



CMP 

#" " 

5430 s 

H / b O' 

***** *• 
r u 

F7 



BEQ 

PRTRB2 

5440 s 

r*. **7 r*, 7 ,h 

H / Jb J 

98 



PRTRB3 

*T V A 
3 T hi 


5450 s 

A7B6 

A A 




TAX 


5460 s 

A 7 B / 

Ll“ ;to 
to O 




I NX 


5470 s 

A7B8 

RO 

00 


PRTRB1 

LDY 

#0 

”•480 s 

A7BA 

Bi 

-to 


PRTRC 6 

LDA 

(POINTA) , Y 

5490 s 

A r*t t“‘- 
H / DO 

t y t A 

J*** t 

1 Q 

a* •••• 



BI ! 

PRTFLG ; TEST FOR DISK FILE 

5500 s 

A h*** 

f-i / bt 

1 0 

0 6 



BPL 

P R T R 6 0 ; N 0 - N 0 CO N V E R S 1 0 N 

55 1 0 s 

A7C0 

p Q 

*u..* ** 

4 1 



CMP 

#" A" . CONVERT ’ A S< UP 

nr nr •***» .***\ r 

•***i wi ato* ii 

A7C2 

9 0 

02 



BCC 

PRTR60 

;*-» » ***** ***** m 

**•*- *» 1 | II 

.t 

A7C4 

09 

80 



OR A 

#$80 3 TO UPPERCASE 

jr-irr /; „ 

to to 4 U S 

/’•. ~7 |-" ! 

M 1 to to 

20 

n v 
*!*•* 

FF 

P RTF; 60 

JSR 

OUTPUT 

****** w w %** n 

**_ »***y .**•* ^*** 

H / to 9 

C 8 




I NY 


to cr / (•" , „ 

•to '....■ it 

a r“ a 
H / to H 

CA 




DEX 


cr cr -*? „ 

t i .• i ; a 

•....- •....• / u 

A7CB 

DO 

MM 

F i 1 



BNE 

PR1 RC 6 

***** ***** **•* •• 
r~ ™ *. v ; } u 

w w ** u 

A7CD 

A 2 

0 1 


s 

LDX 

#1 

StoOO S 

•* ***** «••* i» > »* 

R / top 

A 

/ 6 



LDA 

TEMP 2 ; GET WHAT TO DO AFTR 

5 6 1 0 s 

A ***' r% i 
i-i / U i 

C9 

9 0 



CMP 

#$90 ; ’ P - PACK 

5620 s 

A / D ■„.> 

F o 

07 



BE Q 

P R T R C 7 3 Y E S P R I N T 0 N E S P A C E 

7*630 s 

a “ v rs ch 

hi / U to 

C9 

¥**. ,**. 
bU 



CMP 

#$B 0 3 ? 0 

5640 s 

***** ~f+\ III** 

R / u / 

*4 ) 

08 



BCC 

PRTRCB 

to to to O S 

A7D9 

/* A 

OF 



AND 

#$0F 

5660 s 

R / DB 

A A 




TAX 


5 A, **/ H «' 

W W / ij 

R / Db 

2 0 

O 4 

A 8 

PRTRC7 

J SR 

SNDSPC e SEND ’ X SPACES 

***** • »*>♦ ** 

5 to dO s 

R / Dr 

30 

OF 


R 

BMI 

PRTRCA ; ALWAYS 

5700; 

A7E 1 

n c) 

w -• 

o “F 
7 • J« 


M 

PR 1 RuS 

CMP 

#$93 ; ; S - SINGLE 

cr ~y -i _ 

1 .* : » : ** 
W / .1* 'h* II 

•• ***** •**•« ***** 

R / t O' 

FO 

A A 
***** 



BEQ 

PRTRC9 

w / a— •**• it 

A7E5 

E 8 




I N X 


5730 s 

R / hi to 

C 9 

b 4 



CMP 

#$84 ; ’ d ~ double 

5740 s 

A7ES 

FO 

0 1 



BEQ 

PRTRC9 

5750 s 

A7EA 

E b 




I NX 

3 HAS TO BE TRIPLE 

to 760 s 

A7EB 

6 Q 

78 


PRTRC9 

I NC 

TEMP4 3 NEWLINE FLAG 

***** ***** ***y «* 

5 / / u s 

A"/pn 

i i *- W JL*/ 

*1**. V’ 

07 

A 8 

n 

JSR 

3 N DCF; ; S E N D ’ X < C R > S 

to TQf) « 

W / / V it 

M ***** y>*»* ** 

A / F U 

***** - 
r, i*"i 

7 5 


H 

PRTRCA 

I NC 

TEMP ; GOTO NEXT FIELD 

***** *■** (■ M 

u iHf H I u 

w *«• *to SI 

A / h to 

hi to 

*-?E:r 
/ ’..J 



LDA 

TEMP 

5910 s 

ri / P *t 

CD 

00 

CF 


CMP 

MAXFLD 

^.Rvn » 

***** ‘.to *S**. V Si 

A7F7 

BO 

0 3 



B b 

PRTRDN 


5doU ; 

a ~r r~ r ~ 5 
M / r 7 

4C 

48 

A / 

u 

JMP 

PRTRC 1 ; GO BACK FOR NEXT F'LD 

5850s 

a "T r*** ”*"* 

H / r L 

A 6 

3 6 


PRTRDN 

L.. D X 

POINTC +1 ; GET LNS BETWN 

■jSqU 2 

/*, “7 ***** t*— 

H/rt 

E 8 




I N X 

; PLUS ONE FOR EOL 

5870 s 

A / F F 

20 

f“‘i “7 

’i* -* 

A r*j 

MO 


J SR 

bNDuR 

ll'.r j"**: ,*“•* a. 

JDOU 2 

A 8 0 2 

*| "A 

! INK 

-i* w 




CLC 

; NO STOP KEY 

5890 s 

A803 

6 < J 



PRTRTS 

a 

RTS 







»? 

; SUBROUTINE 

TO PRINT ? X NUMBER 






2 OF 

C H A R A C T E F; S E N T I N 7 A 

5940 s 

A 8 o 4 

A 

M 7 

20 


SNDSPC 

I p a". 

L- U H 

^ II H 

nr r" .--t „ 

i "V : 1 i « 

w w n 

A 80 6 

•t*«* L 




a BYT 

4-2C ;BIT OPCODE 

5960 s 

A807 

A Q 
M 7 

CD 


SNDCR 

LDA 

#13 s < CR > 

ttm MM •!(*« *» 

) W / 1 1 « 

Wm ! / / V It 

A 80 9 

CA 



SNDCHR 

DEX 


5 V 8 U 2 

A 80 A 

***** .♦* 
•DO 

py 



Bril 

PRTRTS ; ALL DONE 

c ;Q9i> 

W / / ’m* u 

A 8 O C 

20 

D 2 

7 7 

3 i 


J SR 

0 U T P U T ; S E N D C H A R A C T E R 

A O O O ■ 

MM M M M ll 

A 8 OF" 

Q O 

F 8 


a 

BCC 

SNDCHR ; ALWAYS 






tt 

; R 0 U' 

TINE TO 

GET TWO DIGITS AND 






2 CONVERT THE 

81 TO ONE BYTE 

6050 s 

MO l i 

48 



GET BYT 

PH A 

; SAVE VALUE 

6060 2 

A8 1 2 

M .c. 

18 



LDX 

#24 ; BOTTOM LINE 

6 U / U S 

A 8 1 4 

i “ 

x O 




CLC 


6080 s 

a j‘~i *; sr 
MO 1 O 

v o 

*1*** V 

***** •* 
i J 
i 

$♦*** ***** 
F F 


J SR 

PLOT 

6090 s 

A818 

84 

/ **•*, 
/ w 



5 i Y 

TEMP 

6 i 0 0 1 

A 8 I A 

6 8 




PL A 

; G E T P R E V 1 0 U S V A L U E 

6 1 1 0 s 

AS 1 B 

4 8 




PH A 


6120s 

H o 1 o 

20 

on 

/ AW 

A 

M O 


JSR 

DIVTEN ; PRINT PREVIOUS VALUE 

£> I -DU s 

A 8 i F 

/\ ft 

j***| aVf|* 

***** J**». 

/ . |M< i 



LDY 

TEMP 

6 1 40 1 

A82 1 

8 4 

D3 



8 T Y 

CQLNUM ; RESTORE CRSR TO BEGIN 

& I 50 2 

A 823 

8 8 




PL A 

5 GET PREVIOUS VALUE 

6 1 6 0 S 

A 824 

o *sr 

Q ;J 

***** ***** 

/ D 



o s H 

T E M P ; A N D S E T F 0 R < C F; > 0 N L Y 

6 1 70 s 

A 8 2 6 

A 9 

00 



E D A 

#0 

6 1 80 s 

M O .t2 8 

,****. t***’ 

oD 

***** MM 

/ o 



w i f '*1 

TEMP 4 

A 1 QT) ■ 

A 8 i:.'. A 

A 9 

on 
»♦ •* 


GETBYl 

LDA 

#0 

A V M M * 

‘a*.. 1 aUa. V‘ *m‘ <1 

A O fn 

hdi b 

8 5 

C C 



p*. *r /*. 

O 1 Hi 

B L I K S W ; B L I N K 0 N 

jL j tt 

0 4. J. n 

MOit 

20 

n ****, 

A / 

B5 

b i:::. i B Y 2 

JSR 

G ETC HR 

6220 s 

A !*•-, T .j 

MOO J. 

***» •*** 
uv 

•1 ” 
1 •"}■ 



CMP 

#20 s DELETE 

6230 s 

^* ( »M. »m* •***• 

MO D -D 

F O 

"7 f” 

•j* r 



B E::. Q 

GE i DEL 

6 2 4 O 2 

A835 

f“ Q 

MM* ** 

8 8 



CMP 

#PF7 ;<F7> 

A 7 i 'i >« 

W Jm. w *«• a 

A 83 7 

***** M 

h ( j 

X ’m* 

38 



BEQ 

GETBY 6 ; 7 C WILL BE SET 

6 2 6 0 2 

A 839 

f-Q 

*M* * 

0D 



CMP 

#13 :: < CR > 

6 a / U S 

A83B 

F 0 

“7 .1 

d:* I 



B E Q 

GETBY5 

6280 s 

A83D 

A 6 

..... .... 

/ o 



LDX 

TEMP 4 ; GET PASS NUMBER 

6290 s 

A83F 

EC 

0 2 



CPX 

#2 

6300 1! 

A 84 1 

F 0 

EB 



BEQ 

GETBY2 ; NO CHARACTERS AFTER 2 

63 1 0 s 

.A AA /I **2* 

Ho*to 

f“* r*“: 

I **v 

W / 

30 



CMP 

# ,, 0 n 

A 7 7 o «= 

W V 4m V f U 

M _•**» M J*» — 

M 8 4 *. j 

90 

E7 



BCb 

H 7 T H V 7 

3 •**»• *"1' 

tojjU 2 

A 84 / 

C9 

3 A 



CMP 

:{H: n « n « ? Q 4 . j 

u i| 7 * .J. 

6 3 4 0 s 

** ♦*** a* Mra 

/ *. i } -• i : t 

MOM- 7 

B 0 

E -D 



B C 8 

bh r BY 2 

*W *. u *‘. 1 J t* 

1*2 -m. 1 vJ •**' n 

AS4B 

a*** *4 

20 

76 

B5 


JSR 

EDOUT ; PRINT IT 

6 3 6 0 u 

A 8 4 E 

29 

*!_) F- 



AND 

#*0F 5 CONVERT TO BINARY 

• MM* ***** M 

& / O 2 

»* •*•• **••» «* 

Ho DO 

E 0 

00 



CPX 

#0 5 WHICH PASS 

6380 2 

AS 5 2 

DO 

DC 



BNE 

GETBY3 ; FIRST CHAR ALREADY IN 

6d 9U s 

A O '1 

H o •....* i 

E 6 

7 p 



I NC 

TEMP 4 

6400 s 

s\ n cr / 

A 8 -j o 

0 5 

7 7 

** w 


GETBY 0 

o 1 H 

TEMP 

64 1 0 s 

A Q cr Oj 

i 1 Off %...• 

A 9 

20 



LDA 

# Jl 55 

* M «*M p 

/•••. A, ,- 5 f i « 

W 1 4m ■*.’ If 

A 8 D H 

A -1 

|mm *“*••• 

n “o 
u •«* 



LDY 

COLNUM 

/ fi **n- .**. 

8 4 0*0 2 

.-•x Q nr* r~- 
M O ■„.( 8 

91 

D 1 



ST ri 

(SCNLIN) 5 Y 

A 4 4 O 2 

A85E 

DO 

CA 


It 

BNE 

b E 1 B Y 1 2 A L W A Y S G E T Iy! E X T C H A R 

A IK A I’ X 11 

W : W a 

hbou 

•1 r**. 



;» 

GE i 8 Y 

PH A 

2 SAVE CHAR 

o4 70 2 

A 8 6 1 

20 

:'***! *! 
’7 1 

** **«• 
A >-*r 
i i 


•** MM **** 

J 8 K 

TIMTEN ; MULT I PLY TEMP BY TEN 

6 4 £50 s 

A 8 6 4 

68 




PLA 



TEN 


to *4 *7 cj u 

M ,*•**, • HIM 

Hoto-j 

y •••» 

1 to 




,»»• ♦ __•*♦* 
to*/ UtM 




6500 s 

Ho to to 

• JM*. 

to D 

"7 

.* i 

/ *...*• 



HD to 

TEMP 



6510: 

A 8 to 8 

to 5 

"7 

/ toj 



•to f Ai 

TEMP 



A 5::: i v f") » 

m» Vtn* tlan * *• * tt 

a r**i / a 

Hqoh 

E6 

78 



I NC 

TEMP 4 



. .«*. ~* r „ 

-•*% . i . \ i } * 

*»■*■ *itw ***** "**' tl 

A to 1 L. P 

|**i t_* X T l MM , 

DO 

BC 


» 

BNE 

GET BY 1 


; ALWAYS-GO GET NEXT 

■ >MM ««lil u 

6DDU 2 

!""i i r“ 
MOO to 

i o 



GE i B V 5 

’-***" L. ’**/ 


II 

NO <F7> 

6 5 6 0 2 

A to 6 F 

A cr 
H O 

—r cr 
/ O 



LDA 

TEMP 


; PUT VALUE IN ’ A 

6 5 7 0 u 

AS 7 1 

4C 

/ to 

B5 

toE ! BY 6 

ii 

J MP 

BLJtoOFF 

xt 

H 

OFF Si RETURN 

* HH H 

6D'7'U 2 

A 87 4 

A 6 

t to** 


H 

**** ***** ***** MM ***** • 

toE 1 DEL 

LDX 

TEMP 4 

St 

?f 

WHICH PASS 

66 U0 s 

A >*“ *7 / 
MO / to 

F0 

B6 



BEQ 

•••• *•**• ***** «.** * * ••♦* 
toE 1 to Y iL 


; NOTHING IN YET 

66 1 0 2 

A 87 8 

20 

7C 

B5 


J SR 

BLKOFF 


: BLINK CRSR OFF 

6620 2 

AS 7 8 

***\ * 
w to) 

D3 



DEC 

COLNUM 



z f ***** •• 

to to toU 2 

AS 71) 

A 9 

00 



LDA 

#0 



6640 2 

A S 7 F" 

C6 

78 



n f c 
***** ***** ***** 

TEMP 4 



6650 s 

A88 i 

F0 

D3 



BEQ 

GETBYO 


; ONE DIGIT IN 

66 6 O s 

A883 

A 5 

75 



LDA 

TEMP 


5 SAVE BOTTOM HALF 

to to / U 2 

aqp-; 

. i •*•• •***’ *»*♦•' 

A 2 

p: p 



L D X 

#$FF 


3 “*‘1 

6680 2 

A to 8 7 

/> o 




♦**^ ***** •**« 
to 1::. L, 




6690s 

AS88 

E9 

0 A 


6ETDL 1 

SBC 

# 1 0 



6 7 0 0 s 

A 88 A 

L to 




I N X 


K 

.» 

COUNT UP 

67 i 0 s 

A88B 

B0 

FB 



ECS 

GETDL. 1 


: T I LL. OVERFLOW 

. . t 
W ** 4 m. v U 

A o r-» V”-, 

HooD 

rn a 
O M 




T X A 


tl 

»? 

PUT COUNT IN J A 

• ***** ***** t *4 

to / 0»U 2 

A rj r~ r- 
H O O to 

4C 

56 

A 8 


JMF' 

GLl BYO 








ff 

; ROUTINE TO 

MULT I PL 

\ / 

, T 

TEMP % 10 

to / / U 2 

MO 7 1 

06 

7£T 
/ U 


H 

7 I MTEN 

A to.’ L 

TEMP 

tt 

TEMP % 10 

6780 2 

A “7* 

M Q 7 O 

/*•. Kl- 

M vJ 

7 5 



LDA 

TEMP 


; SAVE TIMES 2 

6790 s 

A895 

to* H 




ASL 




6800 s 

A to 9 6 

0A 




ASL 




6810: 

A S 9 / 

18 




(**/ L ***** 




to to O 2 

A898 

65 

...j. 

/ O 



A *0 to 

TEMP 


; ADD TOGETHER = *10 

/ r**\ ‘♦M* 

A*. to*/ V > •* U 

QO^V w 

H to 9 A 

85 

ns* 
/ O 



S i A 

TEMP 



6840 s 

A89C 

60 




RTS 









; R0U' 

TINE TO 

n t ) t n 

X*/ *1* *•’ 4* A~* !***» 

B Y 

TEN 






;; AND 

PRINT ? 

Y - CUto 

UMN POST I ON 






n 

n 

H V i”1 L... 

UE 


6900 2 

A89D 

4 to 



tt 

D I VTEN 

PH A 


21 

SAVE VALUE 

to 9 1 0 2 

AS9E 

A 9 

"T -•*. 

to* 



LDA 

#$30 



to 9 2 0 2 

A 8 A0 

A to 

D6 



LDX 

LINNUM 


S GET LINNUM 

6930 2 

A to A. 2 

E0 

17 



CF'X 

#23 



to 9 4 U 2 

AS A 4 

B0 

06 



prq 

D I VTNO 



6 9 5 0 s 

A Q A / 

m o m 

B 1 

D 1 



LDA 

( S l.- N L 1 N 

) , 

Y 

to 9 6 0 2 

A8A8 

10 

2 A 



BPL 

D I VTDN 


: NO ROOM IN FIELD 

A to O « 

• * ••*• 

H to H H 

A 9 

B0 



LDA 

#$B0 



6980 2 

A o a r* 
H to M to 

oc 

too 

1 7 


D I VTN0 

S 1 A 

SWPFLG 


; SAVE ORA VALUE 

6V9U 2 

H to H to 

68 




PL A 


ft 

GET BACK VALUE 

7000s 

HoHr 

09 

0A 



CMP 

# 1 0 


;; SAVE NUMBER 

7 0 1 0 : 

A to B i 

90 

1C 



BCC 

D I v'TN 1 



“7 f) (“) » 

A p; f-j -~r 

rl O JD * J* 

J\ 

MO. 

FF 



LDX 

#$FF 


s i 

7nTn * 

** V *m*‘ v is 

A8B5 

38 




SEC 


IT 

M 

DIVIDE BY 10 

7 040 s 

A 8 B 6 

E8 



D I VTN2 

I N X 




/ O D U 2 

A8B7 

***** ***• 
r- 

***** / 

'••j H 



o L 

# 1 0 



7060 s 

A8B9 

B0 

FB 



7". p*. j****. 

tototo 

D I VTN2 



7o7o; 

A to B B 

to 7 

uA 



A D to 

# 1 0 


; RESTORE OVERFLOW 

70802 

A8BD 

4 to 




PH A 


tl 

? 

SAVE REMAINDER 

/ l‘ 1 W I i “ 

A 8 BE 

H ”j 

■4 ”‘. v 
.1 / 



LDA 

SWF’FLG 


sIS IT FIELD DATA 

7 1 00 : 

A8C0 

10 

06 



BPL 

DIVTN3 


; NO 

"7 1 1 f“l n 

; i. 4* v- v 

A O t"* -**“» 

moo*:. 

C8 




I NY 


IT 

IT 

YES -TEST FUR ROOM 

7 1 20- 

*• J» .:•*• 'm* » 

ABC to 

B1 

D1 



LDA 

(SCNLIN 

\ 

f 4 

Y : IN FIELD 

*.*,* . **♦,. «* 

7 I U 2 

A SC 5 

10 

0D 



BPL 

D I VTDN 


sNO ROOM-EXIT 

•”7 ,1 .*1 

/ 1 4U 2 

A 8 to 7 

88 




•*•". r“ *. -• 

U E Y 





/ *! j f 1 »' 

.• a* w u 





DIVTN3 

***** « 4 a aa 

i X A 


7 1 60 2 

AbC9 

f) Tj 

1 **7 
*i* / 



ORA 

S W P F L G ; M A K E A S C 1 1 

.* / i 1 “ 

/ J. ^ *«* « 

A8CB 

Q | 

D1 



CL> ) A 

( S C N L I N ) „ Y ; S A V E T E N S 

7 ISO; 

A8CD 

C b 




I NY 


7 1 90 2 

A S L- L 

68 




PL A 

; GET REMAINDER 

**~f ,****, ,*♦. ,**, 

/ z!UU 5 

s\ o r r~ 
HoLr 

,*». j**** 

U ; 1j 

17 


DIVTN1 

ORA 

3WPFLG ; MAKE ASCII 

i f ) .. 

t 4m 4. *■' IX 

A8D i 

T 4. 

Di 



7*D 1 R 

( S C M L I N ) , Y ; S A V E 0 N E S 

***** — - W 

.‘I 1 '• 
/ J... .1... u 

ASD3 

60 




RTS 


***** mi aa m 

/ v 4 ( ) * 

t 4m X V a 

A8D4 

68 



fl 

DIVTDN 

PL A 

U F I X STACK 

7250 ;; 

A8D5 

60 




RJS 







; ROUT I NE TO 

SAVE kAM 

7vQn « 

.* J». .* •«* u 

A 8 D 6 

r? 

j:.. 

FA 

B5 

fl 

SAVE 

*? a*** r'l 

•J LL> K 

LLtHh! 1 

*»*•• ••**- *** •* i 

/ i ! R 

/ ’m* V V U 

A 8 D 9 

20 

05 

A 1 


*r **n i*”. 

■J S K 

GETFN 

7 1 i ) » 

AS DC 

90 

03 



B U C 

SAVE A ; ’C SET ON <F7> 

77"n .x 

S V 1 4^. V If 

AbDE 

4C 

EB 

A -.^i 


JliP 

OPT I ON 

*** 7 * •♦n* .•*, 

\i ! *» 

/ *m’ •«.’ II 

age: i 

A ud 

• * 
A*** A*** 


SAVE A 

LDX 

#34 ^ ? SAVING, u u 

7 j.4u s 

MO CL O 

20 

BC 

B9 


JbR 

MESS AG 

7350 s 

o r- 

RoLo 

*T : ft 
,»*,* 

*• ***** 
u / 

f ’i * j» 


J SR 

DSKTST ; IS DRIVE ON 

7360 s 

AGE 9 

B0 

O 

aa a* 



BCS 

SAVE0 

7370 s 

A8EB 

vO 

I D 

,*\ —v 

H J* 


J SR 

DSKBAM ; IS DISK FORMATTED 

*~r "T 

/ ::>8u s 

A8EE 

B 0 

E. 6 



BCS 

S A V E ; ’ C SET-DID / N E E D F 0 M 

" ,M ***V . M , 

/ .ji "7 lj 2 

A8F0 

M MM 

H2 

US 



LDX 

#8 

7400s 

A8F2 

DO 

0 3 



BNE 

A V L 1 % A L W A Y S 

74 1 0 s 

ASF 4 

2 O 

^♦M «... 

,X™', 

H V 

SAVE0 

J SR 

SET TAP ; SETUP FOR TAPE 

’7 4 O - 

.• I .U *u* t* 

/*-. r\ {••- *r 

Hor / 

A V 

0 1 


SAVE 1 

L D A 

#1 

/43U s 

A8F9 

A O 

01 



LDY 

#1 

7440 s 

A 8 F B 

20 

bH 

FF 


JSR 

jH». Maa. Mit. a jaaaa **** t 

***** aaaaa a laaaa t ‘*.*J 

7450; 

ASFE 

A 5 

08 



LDA 

NAMLEN 

7 4 6 O s 

A 900 

A 2 

E0 



1 D x 

#< F I LN AM 

/ 4 / tj s 

A902 

A0 

CF 



LDY 

# >F I LNAM 

•“V .*! .**. 

/ 4b o s 

A 9 0 4 

20 

BD 

FF 


*«• aaaa aaa* 

J b K 

SETNAM 

/ 490 s 

A 9 07 

A 6 

: r\ 

} l 

A*** 4..' 



LDX 

F'LSREC ; GET END POINTER 

HIM HIM M ** 

.* ’.m v V ; II 

M MM a* 

l‘...j “* f ) '-‘y 

Hi 4 

MMj ***** 



LDY 

PLSREC+ 1 

/ K “ j ! ! ) » 
/ m **U A* V o 

A 9 0 B 

A 9 

2B 

mmi Am 



LDA 

#< F'BGSDT 

**•*• •***» Mm m 

? i 1 I* 

f W A**. V U 

A90D 

20 

D8 

F F 


JSR 

S A VERM ; 60 SAVE RAM 

***** ft*** MMI ** 

/5bO s 

A 9 i 0 

f*\ ,*♦. 
.- ! ! 

■ 1. * . n 

MM. MM. 
1::. / 

p p 


J bh. 

w i.... A L_ L. 

7540s 

A9 1 3 

A 9 

00 



LDA 

#0 

•***r r-*- rr*- _**, 

! ' n J '»J II 

A 9 1 5 

85 

9D 



ST A 

MSGMCD 

•MM Mm. ^ _*• 

/ ~~i /”•. : i ,J 
/ w \**f '*•* u 

A 9 1 7 

A 5 

Q i*i 

/ ’m' 



L D A 

STATUS 

****r -M mm, m 

/ 5 / O s 

A V j. 9 

DO 

09 



BNE 

SAVERR 

7580 s 

A91B 

M MM 

4 U 

***** *M. 

!:::. B 


b A v III 1 ..:l 

JMP 

OPT I ON 

/ f '% * Hi" 

A 9 1 E 

20 

El 6 

A 2 

;« 

MM f*^ a • ***** mm ** 

b A VelRO 

JBR 

P R T ERR ; PR I N T E R R 0 R 

7610: 

A O'". -**”< •! 

H 7 1 

4C 

D6 

f-i b 


JMP 

SAVE ; GO BACK TO SAVE 

7630 s 

A924 

r> 

07 

A3 

SAVERR 

JSR 

DSKTST ; SAVE ERROR 

7640 s 

A927 

B0 

M«M ,M. 

Mm 4 ** 

1 4... 



BCS 

S A V E 1 2 ; T APE - N 0 E R R 0 R S 

M*M f M«W J I* 1 

•* Aii I l M 

/ w II 

A 92V 

20 
4mi *m 7 

C5 F 

A 2 


JSR 

DSKERR 

/ X *1 ** 

.* I-. 1 W V 1! 

h93L. 

AD 

00 

02 


L D A 

I NF'BUF 

MM, ^ IMM M 4 

/ b / v s 

m .mi Mm Mm. 

H-yZF 

Li' / 

r 

•j*b 



CMP 

#“6" ; FILE EXISTS ERROR 

/ A H C ) 2 

/♦. ,*n -**r ,j 

A 9 • j> 1 

DO 

EB 



BNE 

SAVERO ; GO PRINT ERROR 

/ Am W 1* : u 

.■ •**-.* / *-■ a 

M^ Mm ***** ***** 

HYO'd 

AD 

0 1 

02 


LDA 

I NPBUF+ 1 

/ / uo s 

** MM MU • 

/ % X S * / 

M *7 J»0 

C9 

**T *•*!• 

'J 1 ‘.J* 



CMP 

# n 3 n 

/ 7 1 u s 

.*•**, 

H9 0«b 

DO 

1^* .’'J 

E4 



BNE 

S A V E R 0 ; G 0 P R I N T E R R 0 R 

**’r "7 ,♦*. 

/ / ,.*! * H 

/ ; 4m v' tt 

A93A 

A 2 

17 



! ny 

l*M* Am* • V 

#23 ; REPLACE 

7730 s 

r-*\ **r r". 

M 7 j*L 

20 

BC 

B9 


JSR 

MESSAG 

7740 : 

r-. rn -T rr 

m 7 ■_> r 

20 

A 7 

B5 


JSR 

GET CNR 

MM, MM| •— ** M 

/ / ji’ J «• 

/ V W V u 

A 94 2 

C9 

“m" *‘“l 
. aaa f 

w / 



CMP 

# n Y n 

***** ***** a ** 

? ? /•“. I } I-- 

A V 4 4 

DO 

D8 



BNE 

SAVERO ; GO PRINT ERROR 

7770 s 

A 94 6 

20 

0B 

b a 


JQp 

M.' \**m* l * 

CLEARS 

7780 s 

A 949 

r^. •••" 
5™i ,i2 

•”7 i ”7 

4m. aftaa. 



3 *r'- ’• a' 

L D a 

#34 r; ? SAVINb» ». « 

•MM |MM IM< M 

/ / w r i » 

•* f • « 

A94B 

20 

< r** 
b I...- 

B9 


**f Mw, {M« 

J bK 

MESSAG 

/ 800 s 

A94E 

** ***• 
H 

00 



LDX 

#0 s ADD " SO 





/ oUu ; 


/ \ i .* *. 


70QH « 


/ w r ‘i i 1 •» 

•* t V* *-• u 


/ t i u 3 

/ : ~v 1 1 c 

•* •* il»w ’m* 14 

/ W \ i *i « 


1 60 ;; 
170: 
1 SO : 

1 C'A ; 


vOO u 

a.*- ‘w* •«' u 

,“~S J ** -, a 


' ‘ .■* i' ! « 

.t». *s.*. u 


• i “• a 

-A. •«.* ■»' a 

240 s 


3 i 0 u 
7 - 

1 .!». b 


350 s 


4 1 0 s 
420 s 
4 30 3 


H 7 JU 


78 1 0 

u 

a 

A Q 

H 7 0 O 

BD 

Y*\ ••*•/ f\ •».*. .... ** | T J*.M | ] 

D / no SAVE 11 

LDA 

El R 

7820 

»: 

U 

/*. j ,M *. {“•• — f 

H 7 %j • j* 

9D 

DD CF 

b 1 A 

F I 

/ Bbu 

II 

tt 

A 9 56 

El 8 


I N X 


7840 

tf 

is 

A 9 57 

Eo 

03 

CPX 

#3 

7850 

it 

it 

A V 5 7 

DO 

IT EH' 
i tJ 

Br 

. j.... 

4E 

6 A 

/ 00 U 

11 

l< 

A95B 

A 6 

08 

LDX 

NA 

7870 

it 

tt 

A95D 

r: 0 

Cm. W 


I N X 


/ odu 

11 

u 

A95E 

El. 8 


ii 

«IX 



3 D E L E T E 0 L D V E R S 1 0 


A95F 


h 


u7 


A 9 6 0 
A9&1 


8 A 


I NX 
T X A 


H j— * 




.****, *• M *f 

H 7 cd • j< 


H 7 o-4 


C A 

***** .**. 
L H 


***** -7 .**. 

/ 7 M* 

t! 

II 

A / C**- 

H 7 0 u 

r* a 
!_■ M 


7950 

tt 

St 

A Q i. 
n / O w 

A O 

CF 

W 9 

7960 

u 

V 

M 7 bu 

2 0 

»***! *) 
7 I 

•*•*? ***v 

/ ~v /( I 

N 

a 

n nH . «... . 

H / 0 1 ." 

Bu 

B 1 

7980 

tt 

is 

a 0 / rs 

17 7 O U 

A 2 

08 

***7 r***> 7 *. ,**, 
/ *7 '7 ! | 

fit 

a 

99 

A96F 

40 

r 7 

80 1 0 

n 

n 

W / / 

lx f 4~. 




A 7« 

t i 


AS 


LDX 

#< FILM AM 


DEX 

r\ lt V 



l.S A 

DEX 



LDY 

# >F I LNAM 


JSR 

DSKERO 


pro: 

/... w w 

SAVERO 

; GO 

LDX 

#8 

; GO 

JMP 

SAVE 1 


CL" T i P 

>t i * 4 * 9 m. * t.a.i 

, S i< F“ . 5 . L III R u 

r> a 1 
r HL 

I L E !■•< 

Pi 



p ”]" T 5 1 


RETRIEVE MENU 


i i / 

W 7 / 


rl 


AP 7 


A 9 7 8 


« ) 
V o 

A 2 


A97A 


X! I 


A 7 / 1j 20 


Aoqf) 


r-l 7 O 


A 5 


FA 

..... n 

CL I 1 "'! 

01 
BC 
1 C 
3 1 


B5 RETREV 


.... 

b -j» 


JSR 

•v r- r~, 

J oK 


CLEAR! 

SCRNPT 


B 


*i O 


B 6 


RE T RES 


* « t i ’ ; 

i .... .* 


m 7 o 

A 98 4 


»*«»| » 


S L) 


***v **m* 

. . ’’l 


H V o o 


84 


***r n 

. ji A 


L D X 
JSR 
J S R 
LI) A 
LDY 
ST A 

b i Y 


# 1 

.j r*-* /**♦. /***. .*♦. * 

hLbbhb 

CLRFLD 


s RETRIEVE MENU 


PBGREC 
PBGREC* 1 


P { ‘ P -«• j 1 

9 I ■> 1 *. I-.** W/ 

PCRREC+ 1 


v 0 a 

J... •**• u 

A 9 8 8 

A 9 

00 


LDA 

#0 



«... # ** 

.* f ** K 

.S». O H 

A :"*> A) A 

H7DH 

85 

»».*. 


ST A 

TEMP 3 

; MOTH I 

NG 

7. *7 f ) a 
y~. / K J » 

A9SC 

8 5 

18 


ST A 

PRTFLG 

; CANO 

{**** t 

clL. 

280 3 

A98E 

20 

/*. ***y 

H / 

B5 RETGET 

JSR 

GETCHR 



290 s 

A99 1 

C9 

Q Q 
C.. ; O 

RETGT 1 

CMP 

#PF7 

tt L. / 

if *. 1 / 


300 3 

,**i /***| ***r 

H 7 7 

FO 

.••j. 4.|. 


B E Q 

RET VO 




D I SPLAY 
PRINT MODE 


A995 
A 99 7 


85 


“•/ r.:r 


j 


•r cd 


.... ..... .. 

b ! H 

o Lb L- 


T'EMF' 


“ QfiUF 

t) w r I •/ 


3 TEST 


KEY 

FOR NO RECORDS 


T Ti « 

**M S *M.‘* *..• U 

A99S AS 

•■*t* /***, 

LDA 

PBGRE.C-+* 

j. 

340 3 

A 99 A C5 

2E 

CMP 

PLSREC+ 

1 


A99C 90 11 


BCC RETV2 


, 4m ! t ( J L* 

ti 

tx 

A99ti 

a r.r 
H -„J 

31 


LDA 

PBGREC 

***** ■*»•? 

.j. / Kj 

91 

It 

A 9 AO 

, — • nn’ 

L./ b 

2D 


CMP 

PL SPEC 

380 

ti 

It 

A9A2 

9 0 

OB 


BCC 

RETV 2 

■*! ? * r*‘i **“‘. 

•d* 7 ‘-j 

tt 

H 

A9A4 

?o 

iM. 

OB 

B6 

J SR 

CLEARS 

4 0 0 

tt 

W 

A 9 A 7 

/•*. n 
Hab 

*• ...a* 

f i 

%,* ‘..J 


LDX 

#5 


A9A9 

a. rn a »—• 
H 7 hi U 

A o A CD 

H7hr 


2 0 
4C 
A 5 


BC 

8E 

F .. f.H 

• h* 


B9 
A 9 


RETV2 


440 

tt 

a 

A 9 B 1 

FO 

0 7 


450 

» 

a 

A9B3 

r .'i -i 

jU. 

OB 

B6 

46 0 

n 

tx 

A 7 B 6 

A O 
M 7 

00 


470 

$t 

II 

A9B8 

85 

CD CD 

i i 


4 8 O 

II 

It 

A9BA 

A. Cr 
l"i vJ 

— ? JET 

/ v.J 


490 

u 

It 

A9BC 

C9 

50 


500 

r, 

B 

A9BE 

L ! U 

O 6 


c **j 1 O 

w 4. *..* 

St 

St 

A9C0 

X- 

7”i 

■-.« b> 

A A 

...» .... ... 
-* ■ .a* .I.m *m* 

u 

14 

R 7 L- -b> 

4C 

8E 

A 9 

».»•. *.*♦• *♦ 
5 . j, u 

3 

XX 

A ‘7 U 6 

A 5 

F Ed 



:;.p TUT 

% I...- I r 


JSR 

JMP 

LDA 

BEQ 

J bK 
L 1 J H 
ST A 
LDr 


ME SB AG 
RET GET 


s EMPTY FILE 


CMP 


BNE 


7 .***♦. t***. 

J bK 


RETV3 1 


JMP 

LDA 


MESGFL 

RETV3 

CLEARS 

#0 

MESGFL 

TEMP 

4-1: !f P !> 

RETV3 1 
PR NT 
RETGET 
SC MODE 


; NO RE DR 
3 PR I NT 


4 IF PR NT 


s T E S T F 0 R D I S T 0 R T 


r 

5 


r** n *~. 

5 4 U 2 

*< *•«« ftM *(M 

/ I 14 ' { | 

H 7 Lg 

F 0 

03 



pirn 

A.. s t«*. 

RE TVS 3 


55 O s 

** »*** t* 

hi 7 Lr hi 

2 0 

E A 

B3 


*7 <***- r*"f 

a bK 

SuRNP T 

5 Y E S - R E D R A W S C R E E N 

560 2 

A 9 C D 

»■“. 211!" 
hi J 



r*. r- ~r : t "p- 

ht j v . 

L... D A 

TEMP 


570 s 

r*. . W4 *. t**** 

nYLr 

C9 

46 



CMP 

# 15 p - ,J 

2 FORWARD 

Cr iWl’") « 

W W v 14 

A9D1 

DO 

(_.l 



BNE 

RETV 4 


=590 - 

w .* if 

A9D3 

o 

.1*.. 

D2 

BO 


•J SR 

FORWRD 


600 2 

hi 7 D 6 

L 

8E 

A 9 


JMP 

»»m »«m • »*•• »•••• ■ **•* 

Kb ! bE 1 


620 2 

A9D9 

4C 

EB 

H -ji 

r. r*“ *t i i,-“i 
Kb 1 vU 

JMP 

OPTION 



640 s 

A 9 DC 

; — • r”s 

U 7 

42 


650 2 

A 9 D E 

DO 

09 


660 2 

A9E0 

U 

B 1 

B0 

670 2 

A9E3 

2 u 

0 6 

B 1 

680 s 

A 7 fc. o 

4C 

8 E:. 

A 9 

A “¥ : ( } U 

w ; n 

a r**: r*** 
hi 7 b. 7 

C9 

cr ■"*•> 
■.J .t'w. 


/ UU 2 

H?Eb 

F 0 

O 

mJ 


7 1 0 2 

A9ED 

C 9 

i!ib **?** 
w * 2 * 


720 s 

A ? E F 

no 

■A*-* *M* 

10 


»MM •»*** M 

/ \i 1 w 

/ II 

A9F 1 

2 0 

C 9 

A A 

hi hi 

740 s 

A9F4 

90 

C4 


750 2 

A 9 F 6 

20 

0 B 

B 6 

760 s 

A9F9 

A 2 

M MM. 

o / 


770 » 

A 7b B 

20 

BC 

B9 

780 s 

A 9 F E 

4C 

ob. 

.ft m 

hi 7 

790 s 

f\ i 

hi HU 1 

C9 

A i 

*t X 


800 s 

A AO 3 

F 0 

(J 


810: 

AA05 

r 9 

4d 


H O “ 

l.. 1 4... » 

A AO 7 

Du 

08 


8 bU 2 

HnU 7 

r— ,♦ 
»*»* A*, 

***** ***** 
b 1 :::. 


b 4 U s 

hAUB 

v C) 

4... •«’ 

q p 

H D 

850 s 

A ACE 

4C 

80 

A V 

860 s 

A A 1 1 

j Q 

43 


870 s 

A A i o« 

DO 

0C 


CJ O l “ | a 
UWV a 

.ft ft 4 r*** 

A hi I Z'J 

ft / 

Ht) 

"7 
/ / 


890 s 

ft ft i *7 
hi hi 1 / 

F 0 

1 9 


QOO « 

A A 1 7 

20 

"?* fti 

hi 

A A 

Q 1 f“‘i *• 

/ J. V it 

A A 1 u 

B0 

BB 


Q v O “ 

A A 1 E 

4 C 

8 E 

.ft r~j 
A 7 

9~v~‘* » 

Hhz 1 

C9 

44 


940 s 

hi A j:;. ■!'< 

DO 

0 A 


950: 

M ** MM MM* 

/ *- A * « u, 

A hi jG -..J 

A 6 

”7 ***Y 

/ / 


W A.. S' j SI 

7 w U w 

*♦ M MM *.»M 

Hhlji. / 

F 0 

b) 9 


970 s 

A hi *£ 7 

20 

nr 

* i ^ 

t>U 

980 s 

A A l_- 

b* o 

06 

B 1 

Q Q f~) » 

AA 2 E 

4C 

h E. 

A 9 

i 0 1 0 s 

AA32 

A 2 

uB 


1 0 i '“' ! * 
4. v « 

AA34 

20 

BC 

D Q 

i. i y 

i 030 s 

M •» .MM ».»M 

AA»b / 

4C 

nr 

b. 

A 9 

1050: 

A (•-{ j A 

v O 

4«.» V 

r~ ft 

r H 

T* c:r 

r-t i 

M*** ****** 

i 060 2 

A A 3D 

A 9 

0 i 


1 070 s 

A a t p 
H hi w i 

Q n-; 

FD 


1 080 : 

hi A 4 1 

20 

59 

]0 A 

1 090 s 

|w { jr»*j »C*|» A»|t 

B0 

14 


1 1 00 2 

.ft a 

20 

6 B 

B 1 

l i i o s 

A A 4 9* 

Q r”) 

06 


1 120 : 

AA4B 

20 

79 

B r‘ 

I i 30 s 

AA4E 

4C 

44 

A hi 

i 1 4 f "* - 

•ft* aL T *«• tx 

ft. ft. £r •* 

nnJ i 

2 u 

FA 

•ft*, t"" 

95 

1 1 2 
4* J* w •«’ a 

ft ft r'" 

H H lJ 4 

.ft <”■! 

A 

0 1 


i i 60 2 

ft. a .• 

H H vJ □ 

20 

BC 

y ** i »*“‘i 
K **¥ 

1 170: 

A .ft m 

HfiJ 7 

-1 " M J 

1 o 




RETV4 


RETV5 


RETV7 


RET VS 8 


RETV? 


RETV A 


RETVB 


RE TVER 


CHANGE 


CHANGE 


CHANG C 


bU 


CMF 

# n B n 

a 

H 

BACKWARD 

BNE 

RE TVS 



7 c 

W •***/ i \ 

BAKWRD 



JSR 

D I SR EC 



JMF 

Rl” ! GE i 



CMP 

# IT R n 

tt 

H 

hbbb ! 

BEQ 

RET REV 



CMP 

# “ 8 12 


; SEARCH 

BNE 

RETV7 



*7 ,**ft r". 

J b* {"’• 

SEARCH 



BCC 

RETV3 


; WAS THERE ERROR 

JSR 

CLEAR# 



LDX 

#7 


; ? NG SEARCH KEY... 

JSR 

MESS AG 



JMP 

RET GET 



CMP 

# 8! A “ 

tt 

H 

A V E. R A G Eg 

BEQ 

M.» U*M Wl 

RETV88 



CMP 

# n M 11 


;; SUM 

BNE 

RETV9 



INC 

SC MODE 

ii 

?. 

SE i E LAb—REDO 

JSR 

SUMMRY 



JMP 

MM •»•«* *••»< MM ***** .»*. 

j..,' j— 

S * Lm. I 1 A •***> ****** 



CMF 

#"C" 

ii 

? 

CHANGE 

BNE 

RETV A 



LDX 

TEMP 3 


s IS IT DISPLAYED 

BEQ 

RE TVER 


; NO-PRINT ERROR 

JSR 

CHANGE 


; GO CHANGE RECORD 

B C S 

RET V0 


;<F7> (GO TO OPTION) 

JMP 

RETGET 


; GET NEXT CHARACTER 

CMP 

# ,l D n 

ii 

? 

n p j p“ t 

BNE 

RETVB 



LDX 

TEMP 3 



6 b. u 

RE TVER 



JSR 

DELETE 



J SR 

DISREC 



JMP 

RE i bb f 



LDX 

ik 1 i 

T: *4* *1. 

a 

ff 

’ RECORD MUST... 

JSR 

MESS AG 



JMP 

RETGET 



JSR 

C LEAPT 



LDA 

#1 



•**• ***** M 

6 1 A 

CHANGE 



JSR 

ENTDAT 



BCS 

uhangd 

ti 

<F7> (OPTION) 

JSR 

CHGDAT 



rj ft"- r"- 

O L.- L, 

CHANGE 


; NO ERROR-ALL DONE 

JSR 

ENTD3 


; RETRY 

JMP 

CHANGE 



J sR 

CLEART 



i n x 

#1 



J SR 

r** ] r- 

MEbSAG 



Lm L... Lf 

RTS 






1 1 80 : 


n 


u 

3 


tl 

ff 


ROUT I NE 
DATA TO 


TO SCREEN 
PE I NTER 


DUMP RECORD 


!1 

3 


-* % l : w 

*«.* *m' tl 

AA5B 

a n 
1*1 *7 

00 

PRNT 

L D A 

#0 


240 : 

AA5D 


90 


ST A 

STATUS 


?=;{■) * 
a**. w »: 

a a nr j— 
H Mi J r” 

O' O 

a*** **2 

BD 

FF 

JSR 

SET NAM 


r*\ / 

/Mf i * 
W *.♦* a 

a. a / n 
Ml Mi & 

r, jm*. 

h'7 

u 4 


i r% n 

L. ? H 

#4 


.**n — * ,**. 

2 7 U li 

f"4 H 6) 4 

AuC 

04 


LDX 

#4 


v p }") •> 

a... w a 

A A 6 6 

AO 

00 


i nv 

l*.M 4 m‘ 1 

#0 


.7 W i i ** 

»w / v' n 

/*., /*. / ,**n 

H H & o 

20 

B A 

FF 

JSR 

SETUP'S 


300 s 

AA6E- 

2; 0 

LU 

p, p 

• HM MM 

J dh! 

OPEN 


3 1 0 s 

AA6E 

A 2 

U 4 


LDX 

#4 

5 CHANEL TO OUTPUT 

220 2 

A A “7 

H i‘“! / U 

V O 

4-. 'h* 

f - Q 

W * 

pr pr 

JSR 

CHKOUT 


.. . 

V It 

A "7 “O 

HH / •„« 

H 6 

.****, .♦*. 
7U 


LDX 

STATUS 


340 : 

r. -v s— • 

A A 7 5 

DO 

•1 t\ 

•tH 


BNE 

PRNTER 

; IS PRINTER HOOKED 

X U *1 { f * 

V 5 W V* IS 

A. A ”7 

MM / / 

A 

Uh> 4* 

r i 

02 


LDX 

#2 


■:<ou s 

A A 7 V 

AO 

00 

PRNT 0 

LDY 

#0 


370 s 

AA7B 

1 Q 

x o 



Cl f: 

mm 4m> mm 



5dO 2 

A A “7 j“* 
Mi 5**1 / w 

2 0 

F0 

hh 

j CD 

PLOT 


“%wn « 

•m' •«' n 

A A /' F 

AU 

FF 


LDY 

#$FF 

It * j | if.n 

II *«* .1. 

400 s 

A A •« 

H m 1 

CS 


PRNT 1 

I NY 



410s 

/\ .A Q 

CO 



CRY 

rH- {“) 

; CHARS IN LINE 

rl ! I Q a.*. 

4m. O 


rr *t 

420 s 

A H d 4 

H u 

2 6 


BEG 

PRNT 3 


430 : 

A A d 6* 

B 1 

D 1 


LDA 

< SCNL I N ) 

? Y 

4 4 0 s 
450 n 

A ASS 
A A 8 A 

C9 

FO 

20 

F5 


CMP 

BEQ 

PRNT 1 

5 TEST FOR ALL 8 PCS 

460 2 

HHdC. 

Mi O 

00 


LDY 

#0 


470 s 

AASE 

B 1 

D 1 

PRNT 2 

LDA 

( SCNL I N ) 

\ r 

9 T ‘ 

480 2 

A A V i -J 

29 

T pr 


AND 

#$7F 

; MASK OFF REVERSE 

4 O “ 

I ♦ *♦* it 

HM7 

V if) 

T C\ 

4*4. V 

BS 

JSR 

CON A SC 


SnO *« 

A a nc 

Mi Ml 7 wJ 

| w 

60 


CMP 

#$6U 

q NO GRAPHICS 

r *~ i f ) «•- 

w 4 . n 

A A. fTS ‘*7 

MiMi 7 / 

MM .M 

9 o 

U2 


BCG 

PRNT 2 1 


5 T‘ !'*”) « 

a a r”i n 
5-1 Mi 7 7 

A T 

20 


LDA 

4 n !! 

; MAKE IT SPACE 

R Tf) « 

W *«.* •*.* ix 

AA9B 

20 

D2 

FF PRNT 21 

JSR 

OUTPUT 


540 ■ 

AAvE 

H vJ 

90 


LDA 

STATUS 


550 “ 

A 5“i A 

DO 

i p 

4- ! 


BNE 

PRNTER 


560 2 

A A A 2 

CS 



I NY 



5 “/ r ) t 

w / *-• n 

/\ A t ;*. 4 *‘i* 

A A H *J» 

CO 

v p 

4m. O 


CPY 

4 4 *-j 

; END OF LI NE 

IT* - Z 4 **! - M - 

5SU 2 

H A A 2 

90 

r*** 

E 7 


M.» _ /•**» MM^ 

w 

PRNT 2 


590 « 

MM W *M If 

A 5-i A / 

o 

H 7 

0D 


LDA 

# 1 3 

5 SEND <CR> 

600 2 

A f*i n / 

20 

n t 

«*** 

pr pr 

JSR 

OUTPUT 


6 1 0 : 

A A A C 

E 6 

D6 

PRNT 3 

INC 

L I NNUM 

5 NEXT LINE 

A r? o « 

W a**- a 

AAAE 

A 6 

D6 


LDX 

L I NNUM 


630 2 

A ABO 

EO 

17 


CPX 

#23 

U BOTTOM OF SCREEN 

640 2 

AAB2 

90 

r*^ k::; 

i..; 


BCC 

PRNTO 


650 2 

H M JD 4 

A 9 

O i’i 


LDA 

# 1 3 

; SEND < CR > BET WEN REC 

A A*. ! ) * 

w W a 

AAB6 

20 

D2 

FF 

JSR 

OUTPUT 


6 7 0 s 

AABV 

A 9 

04 

PRNT 4 

L D A 

#4 

5 ALL DONE 

680 5 

A ABB 

““ o 

/*”■ 7* 

lu/ V* 

•MM 

r l“ 

JSR 

CLOSE 


6 9 0 s 

AABE 

4C 

P P 

L‘ HM* 

FF 

JMP 

CLRCHN 

; CLEAR CHAN RETURN 

T j o » 

A AC 1 

A 2 

14 

PRNTER 

LDX 

#20 

; ? CHECK PRINTER. . . 

T OO 

/ 4.f If 

*• M, fMf Mfff 

A A L 

20 

BC 

b 7 

JSR 

MESS AG 


«*v "T 

/ jU 2 

A A C 6 

4C 

Y"i A”: 

b 7 

A A. 

A A 

JMP 

PRNT 4 



I! 

11 

it 

3 

a 

H 

n 

3 

n 

3 

n 

3 

12 
3 


ROUTINE TO SEARCH RECORDS 
A N D / 0 R S 0 R T R E C 0 R D S 


SORT 




SEARCH TYPES 


a 


li 


:HARS 


a 

3 


ST 

f! 


tl 

u 





T 


SEARCH 

SEARCH 

SEARCH 


FULL 

FULL 


F 1 ELD 
RECORD 


FIRST CHARS ONL 
SORT FILE FIRST THEN 


\ / 
Y 


IX u u 


IS 

Jf 


♦ »•» IMi, IIKI MM • < ... 

DU EuUI 


■ A L L N 



U 


a 

H 


1 890 s 

A A C 9 

20 

J.M. M 

6 A 

v“. “:*• 
•.:> 

SEARCH 

♦m *.m_ .*« 

J SR 

SCRNPT 



1 900 5 

A ACC 

A 2 

9 



t y. •- -• 

1 i 

Lm. Am* .* V 

#9 


; - ENTER SEARCH KEY... 

191 0 : 

*4 ♦»« MIM 

HHL-Ll 

20 

BC 

B9 


7 £20 
U On 

MESS A 6 



1920: 

AAD I 

20 

60 

B 6 


J SR 

•M* ***** .... *.... ( .... 

K t. 6 F L b 


; CLEAR OLD FLAGS 

1 930 s 

A H U 4 

A 9 

00 



LDA 

#0 



1 940 “ 

A A D 6 

85 

{••M Itm 

F F 



ST A 

MEbhF L 



i 950 : 

AADS 

85 

"7 "7 



2? s A 

TEMP 3 


; N 0 T H I N G D I S P L A Y E D 

1 960 s 

A A D A 

O 

.la.a 'u 1 

5E 

B2 


JSR 

ENT A I 


; GO ENTER DATA 

1970: 

H H U U 

•M* M 

90 

i 1 



BUU 

SERCH 1 


5 TEST FOR <F7> 

1 98 u : 

AADF 

20 

OB 

B 6 


•7 O L7 : 

=J on, 

CLEARS 



i Q Q *= 

a. .* / v 

/% /•-. rr 

Jm4 Im.i r** «* 

r 1 r~i w 4« 

A ur 
hi v.J 

31 



LDA 

PBbRLC 


; - P C R R E C - T 0 B E G I N 

2000 s 

AAE4 

A 4 

yr 

■— 1 X. 



L 1 Y 

F : BGREu+ 

1 


V M 1 f) " 

•u. j. ■«’ u 

A A E 6 

i i X». 

CD w 

...j! »*»ji 

.Ji ..^1 



ST A 

PCRREC 



2U2U S 

AAE 8 

84 

34 



qjV 

v.* i 9 

PCRREC+ 1 


2030 s 

AAEA 

A 9 

iJ ! 0 



LDA 

#0 



7-040 -* 

AAE: u 

r”; i"“ 
OJ 

.My MM- 

• •* 
•X 9 



,***♦. -*r* /•. 

O 1 M 

TEMF'3 


; N 0 T H I N G D I S P L A Y E D 

2050 n 

A A E E 

♦ ..M 

la 




CLC 



5 FLAG-NO ERROR 

2060 s 

AAEF 

60 




RTS 



n GO BACK TO MENU 

2 UoU ” 

A H S'" O 

20 

OB 

B 6 

SERCH 1 

JSR 

C L E A R B 



7090 « 

M •*•*• M*|« 

HHr 2 « 

A 2 

17 



LDX 

# 7 >' *7 

IT 4m* •«.' 



2 1 00 s 

AAF5 

AO 

r* f — ? 
X*. / 



LDY 

#39 



2 1 i 0 s 

AAF7 

i 8 




CLC 




*T ; 1 *PC) rt 

4m. 4. .1... V* 19 

hAF S 

Vfi 

4*,* *— * 

FO 

..... »-•** 
j.*. 1*** 


JSR 

PLOT 


; PUT CRSR AT BOTTOM 

.**“ j ***f ,*•_ 

^luO: 

A Ah B 

fK V"\ 

A iJ 

00 

CF 


LDA 

MAXF LD 


: GET NUM FIELDS 

7- 1 XI C) " 

4* 3 V* II 

A Ah E: 

O 

0 u 

8 d 

•••»* .la.. 



S T Ai 

CF I ELD 



2 i 50 n 

A BOO 

L- 0 

82 


SERCH2 

DEC 

CF IFI D 



2 .' 1 60 » 

A B0 2 

i 0 

*"p 

02 * 



BFL 

SERC21 



v 1 T O “ 

•lu* tit •* *m‘ ti 

A B 0 4 

4C 

O 

AC 


JliF* 

SER DON 



2 1 80 : 

ABO 7 

A2 

O i 

O X 


b' 6 KL 22 1 

LDX 

#$81 



v 1 Q , « 

A B0 9 

20 

•7 p; 

a* Hw' 

n *7* 
b= •„.= 


J bh 

FLDBWD 


; GO PREV FIND FIELD 

MM MM M M 

2200 2 

AB 0 C 

A 2 

00 



LDX 

#0 



22 1 O » 

a»«» ■!»»■ 4» v u 

A B 0 E 

8 6 

0E 



STX 

**{M • • »M* MM* 

i Y F L 


; NO TYPE 

7770 «. 

>1 mi ititf «!••« *«•* 51 

AB 1 0 

86 

—V 

/ *7 



Q T V 

•2 « n 

RANGEF 


; NO RANGE 

v 7 T n " 

*»»»« * •*» ^ '•( * ti 

ABI2 

^.{ 4 

Y*V "T 



t y. *. j* 

2 U T 

COLNUM 


; GET COLUMN OF FIELD 

r*~\ r**\ .1 

am a. M T u 

A 6 1 4 

0 6 




DEY 



; FUDGE FOR ENTRY 

2 2 DO S 

AB 1 5 

L, 0 



SERCH3 

I NY 




v v A O 51 

AB 1 6 

CO 

x.‘. O 



CRY 

#40 


5 TEST FOR EOL 

7 1 i «= 

4m 4m • "♦*’ II 

a r*» *1 0 

Hb X 0 

FO 

2 EE 



BEQ 

SERNXT 



r***. r***. 7**. .*♦. 

4 / w I I w 

2* X— W **• a 

AB1A 

B 1 

D 1 



LDA 

< SCNL I N 

) 

? Y 

7090 - 

ABIC 

X 0 

2 A 



D D 1 

*-... { J 1 Mm 

SERNXT 


; NO REV-END OF FIELD 

20=00 5 

ABIE 

:****■ c****ir 

| *M> 

•***/ ; 

A O 



Clip 

# 1 60 



*7 7 1 O “ 

,u v‘ X v « 

A B 2 V 

F 0 

v A 

.!•« aaaa 



BEQ 

SERNXT 



-*m mm* — 

X.. '.. J .X. a 

AB22 

29 

.»,{» p.»» 



AND 

#$3F 


: MASK OFF REVERSE 

•»•* «*.J* »-•*• «« 

y' •. V ) « 

.W *•**' *M* ; U 

A b aC *t 

20 

***** •"*• 
20 

B8 


... «... »••» 

JSR 

CON A SC 


S CONVERT TO ASCII 

M.. MM* M M 

2 2*4 us 

AB27 

C9 

5E 



CMP 

# 5f p » 


; SOR r Rt LORDS 

2 oSO £ 

AB29 

FO 

1 4 



BEQ 

SERCH 5 



r~\ ***r 7 ,**, 

2 2= bU S 

AB2B 

C9 

1^' 

D Ly 



CMP 

# ” t: " 


; FULL RECORD SEARCH 

.**n "T ‘”7 . M . 

22* / O ,1 

AB2D 

FO 

10 



BEQ 

SERCH 5 



2380 s 

AB2F 

fjQ 

w / 

7j F 



CMF* 

# 15 .h" l » 


; RANGE SEARCH 

2 ”7 9 O s 

•• ...» ..... . 

A B 2 = x 

F 0 

i"l f " 

V V.4 



BEQ 

SERCH 5 



740 ^ ** 

4m. i *m' a 

AB33 

c* n 

/ A4 

00 

C’i \^ z 

*M* 4h. 


S 1 H 

I NPBUF , 

X 


2 4 1 0 n 

AB36 

A b 

OE 



L D A 

TYPE 


.5 TEST FOR TYPE SET 

MM, M /***. 

I =» 

4m. : a**- v a 

n j* 4 , **n* j*"*. 

HbOd 

FO 

02 



BEQ 

SERCH4 


; N 0 - N 0 S E T R A N G E BIT 

2430 u 

A Y”i T 

M O -.u ri 

66 

..... .... 

7 



INC 

RANGEF 


» YbS-~SE 1 FlANGE FLAG 

2440: 

A h 2= L 

E 8 



SERCH 4 

I NX 




2450 5 

AB3D 

DO 

D 6 



BNE 

SERCH 3 


; ALWAYS 

M“. M M-M M. 

24 / O s 

*•*. y*, t**** 

H B 2= 1“’ 

r”: 22 ' 

Du 

OE 


M 

SER CHS 

S T A 

TYPE 


5 SAVE TYPE 

2 4 0 O 2 

AB4 i 

A 9 

00 



LDA 

#0 


: PUT ZERO IN BUFFER 

A 0 r - a 
4 7 O n 

A B 4 2 * 

— — — -M* 

9 D 

00 

r-. ■”:< 

4.*. 


S T A 

I NPBUF . 

X 


*.** HM M M 

-•‘fi if 1 » 

,1m- *MM l **-* V W 

M MM M • 

A; H 4 6 

FO 

F4 



BEQ 

•:::= E K i.„. ) - ”l 4 


; ALWAYS 


n 


y ""i y ( ) »* 

*••*♦ *t»t 4 *ii *» 3 

A r 1 .1 /**i 
hi Jb» 4 O 

86 

XX. M*M 
■ »... 

. ( 
< •**. 

b'ERNX i 

q T y 

W 1 4 t 

TEMP 


q SAVE LLNb i H 

»*•* ««•*■ »**♦• •« 

'.,' 3 i' i 11 

A B 4 A 

A !“•' 
H -„J 

OE 


L... D hi 

j y {:::» p 


. TEST FOR ANY TYPE 

*4 U H 

AB4U 

C9 

cr 

'•**•' !»••* 


CNF' 

# !3 'Y 15 


5 SORT 

H*t |*4~ ***** t* 

,‘ u iSi ) « 

.4... V.J W •«' U 

AB4E 

F 0 

04 


B E Q 

SERNX 1 


; YES- IS N 0 R E B U F F E R 

O u 

4*.. v** W *4 

AB50 

F O 

b.x '.. 

00 


Lr a 

#0 


5 EMPTY BUFFER 

zj / O ;; 

AB52 

*M*f .. 

F o 

AC 


BEU 

S E R U H 2 


; GO TO NEXT FIELD 

? 

*4*** ***** ♦*•* '•* 71 

AB54 

A 9 

00 

SERNX 1 

L... D hi 

#0 



v t::r i Qfi u 

AB56 

9D 

00 

02 

ST A 

INF'BUF, X 


; PUT ZERO AT END 

2600 n 

AB59 

».M* ^ 

fc. o 

***** **♦♦* 
|x. !**• 


INC 

MESGFL 


3 DID DO SOMETHING FLG 

v.A 1 i") ** 

AB5B 

per 

W w 

15 


ST A 

I NTGER+ 1 


« 7 FRH nFpqPT 

“A?n - 

.u W a*.. •*.* u 

A BSD 

per 
O P 

14 


ST A 

I NT GER 



V A ’ ^ i " i ** 

.«». •«.* V u 

»* ♦*»• J**»* Mtn 

HbOr 

*• »*w> 

H 2 

*5** *S 
•xl’ 1 


LI) A 

PBGREC 


; SET CURRENT TO BEGIN 

2640 s 

AB6 1 

A 4 

.*•*•■* 
•J.* 1 .ill. 


LDY 

PBGREC+ 1 



2650 s 

AB63 

85 

3 3 


XX ...» M 

o i H 

F'CRREC 



2 6 6 0 a 

8 B 6 5 

8 4 

••*v .*1 

.ji 4 


STY 

PCRREC+ 1 



2 6 b U “ 

8 B 6 7 

/v 

hi 

X **.x 

it 

1.™ U hi 

TYPE 



?AQO « 

a—. W? / v a 

AB69 

C9 

ir’ r" 

u L.- 


CMP 

# n t: u 


3 h* ULL. RECORD 

” 7 i i »• 

.u .* *x* u 

A B 6 B 

FO 

4 A 


BEQ 

SERNX 4 



97 1 O - 

hi B 6 D 

A 2 

FF 


LDX 

#$FF 



V ”7 i'”‘l « 

*»-* / 4m. V n 

A B 6 F 

E8 


SERNX 2 

I N X 




MM •••*• .*•■* M 

2 / oO s 

AB70 

BD 

07 

CF 

L 0 A 

FLDTBL, X 


; GET FIELD LENGTH 

v T 4 f ) « 

4*** -f r V » 

n xx ..... ..... 

H b / -z« 

29 

‘.x* {*“ 


AND 

#*3F 


; MASK OFF TYPE 

2750s 

AB75 

.n 

c: *+ 

p 

LJ x. 


CPX 

CFIELD 


i TO CUR FIELD YET 

' 7 ‘7 ,4 f i *■ 

*U / l xx* V’ II 

A ‘C: ***? “*? 

{-} b / / 

p o 

0B 


B E Q 

SERNX 3. 


. YES-- GO ON 

07 7 A a 

4... / •«' a 

AB79 

18 



CLC 




/**% *•*, 

/ 80 s 

hi b / hi 

65 

14 


A D U 

I NT GER 


3 ADD TO OFFSET 

“ T Q fj „ 

AB7C 

snr 
O •, J 

14 


51 fi 

I NIGER 



2800 s 

x ..X. *MM t**~ 

A B 7 E 

• x* X 

V o 

EF 


BCC 

SERNX 2 



28 1 0 s 

A B 8 U 

E6 

J EE* 

X 


I NC 

I NTGER+ 1 



2820 s 

ABB 2 

DO 

fb 


BNE 

SERNX 2 


3 ALWAYS 

“840 a 

4m. W I V a 

AB84 

O wJ 

7 . a **, 

‘ M*. 

;» 

SERNX 3 

S 1 8 

TEMP 2 

« 

H 

SAVE FED LENGTH 

2850 s 

hi b O O 

A 5 

I**"* 

i.j [■•• 


L„. D 8 

***** * - ♦*** •***• 
i Y F ! L 



2860 s 

X <*♦* **»* 

/ w Q 
hi ju« O =„.> 

C9 

5E 


CMF‘ 

# n T M 


3 CHECK FOR SORT 

2870 s 

ABBA 

DO 

IE 


BNE 

SERN33 



2880 s 

A BSC 

a cr 
H w 

D6 


LDA 

L I NNUM 


; S A V E L I N E N U M B E R 

•” q p ,, 

4m* U / *«* 1* 

ABBE 

.‘ M * *h* t 

o y 

CO 

CF 

****** *T* A 

i R 

TMPARA 



2900 s 

AB9 1 

a ir* 

hi w 

D3 


LDA 

COLNUM 


; SAVE COLUMN NUMBER 

29 i 0 s 

H B V o 

8 D 

L I 

r }::: - 

W i 

ST A 

1 MPARA+ 1 



2920 s 

AB96 

20 

Cl 

AC 

jqp* 

SUR i 



p (") «i 

AB99 

AC 

Cl 

f **». ...X 

l, r 

L. D Y 

TMPARA+ 1 


; GET COLUMN NUMBER 

2940 s 

AB9C 

AE 

CO 

CF 

LDX 

TMPARA 


; GET LINE NUMBER 

nr icr a » 

.* ; I ! ♦= 

4.*- ; w v ii 

AB9F 

18 



CLC 


IS 

H 

GO POSITION CRSR 

2960 s 

ABA0 

V f "l 

4*** *-*’ 

FO 

p p' 

J SR 

PLOT 



W 7 i i a 

4**. / / » 

ABA3 

r. p** 

hi U 

/ 5 


LDA 

TEMP 


3 CHECK FOR SEARCH 

2980 s 

ABA5 

DO 

X X^. 

U .jt 


BNE 

SERN33 


3 YES-DO SEARCH 

no or } « 

ABA7 

4C 

f ) () 

AB 

J MR 

dERCH2 


5 NO -DO NEXT FIELD 

30 1 0 s 

8 B 8 hi 

AS 

”7 C‘i 

/ 5 

SERN33 

LDA 

RANGEF 

a 

Jf 

TEST FOR RANGE 

3020 s 

ABAU 

FO 

02 


B E Q 

SERN1 1 


; NO-NO DIVIDE IT 

■m» x *m* x 

o U U S 

ABAE 

46 

MM. 

/ w 


LSR 

TEMP 


3 DIVIDE BY 2 

3040 s 

ABB0 

T p 


SERN1 1 

SEC 




3050 s 

hi B B 1 

a c”; 
hi -_J 

"•7 / 
/ 6 


L.. 0 8 

TEMP2 


; GE1 FIELD LENGTH 

3060 !; 

ABB3 

E5 

ur 
/ U 


SBC 

TEMP 


3 MINUS SEARCH LENGTH 

■wy *♦ ***** •* 

.jU / o s 

ABBS 

85 

***;-• cr 
/ . 1 


T' A 
P5 I hi 

TEMP 


3 SAVE MATCH LENGTH 

•**t* . M , .**. 

oO VO S 

ABB7 

— r n 

PO 


? 

SERNX 4 

SEC 


ii 

M 

OFFSET + 1 -EXTRA BYTE 

3 1 00 s 

ABBS 

A 5 

.a./* Mt*t 

. *1 .Jl 


L D 8 

F'CRREC 


; ADD OFFSET TO 

3 1 1 0 s 

hBBA 

Z. rr; 

14 


ADC 

I NIGER 


; CURRENT RECORD 

“7 i ?n ° 

***** 4* *W V* P 

A BBC 

8 5 

4a*. alau 


P 1 8 

F'O I NT A 



.XX . ««V ,X 

1 o»0 s 

ABBE 

A. EH‘ 

hi P 

34 


LDA 

PCRREC+ 1 



3 i 40 s 

ABCO 

Z. c: “ 
-J 

15 


ADC 

INTGER+i 



3 i 50 s 

J\ T‘. I”'' f ~‘ 

hi JD 

8 5 

rr 


»♦♦. ***** R 
1 8 

F'OINTA+l 



•5 1 6 o v 

ABC 4 

A 6 

,M T J-’ 

/ P 


LDX 

TEMP 


; GET MATCH LENGTH 

3 1 70 s 

A B u & 

E8 



I N X 


it 

u 

MUST DO ONE PASS 


% I Hi 1 * 

W a. W V K 

hi b L> / 

86 

••*. •*•*. 
>*#a 4 

1 I . X 

•*•• 4*4 



••** ***** * * 
b \ X 

CFD1 FN 


; RESTORE FIELD LEN 

•j« 1 9u 2 

ABC 9 

A ‘‘-j 

f i t “l 

V* *«' 


SERNX5 

LDY 

#0 



32 uu ? 

A BOB 

B 1 

.****! 

*l**a 4m 



LDA 

(POINT A 

> 9 

Y 

3210: 

hi r:> L/ .U 

F0 

-•! a-.* 

R 



BEQ 

NXTREC 


S’O IS END OF RECORD 

♦*n* 

••, » 
'«.* .1... .»**- •-* V 

ABCF r 

A K~ 4 
-..J 

OE 



LDA 

TYPE 


; GET TYPE OF SEARCH 

Mil •••«• • ♦ 

i-L -i-U 2 

ABD 1 

f;9 

5C 



CMP 

# ” £ " 


2 FULL RECORD 

v4n «■ 

V 1 •».*. T v n 

hi B D b 

F0 

04 



BEQ 

SEEN X 6 



•M^i Mai liai« mm 

*. " » l *♦**. :* q 

u 

ABD5 

C6 

n “t 1 * 
O J 5 



DEC 

CFDLEN 


; DEC FIELD LEN CNTR 

”T v A* K 

4m. W •»' H 

ABD7 

30 

"T P 

V 1 A,. 5 



BM I 

NXTREC 


2 ALL DONE 

***** W* m*» •» 

o 7 U s 

ABD 9 

f“i 4 m 

FF 


***♦ ***** **«* * * * * ■ 
S h, RN A 6 

LDX 

#$FF 



"T ”= Qn « 

ABDB 

A0 

F F 



LDY 

#$FF 



*t p f ) „ 

■«* J.H / U 

ABDD 

i"" ““ 

Cl 0 



SERNX7 

I N X 




3300 s 

ABDE 

C 8 




I NY 




bb 1 O 2 

ABDF 

BD 

."a 4**a 

«. I } 

a* u 

02 


LDA 

I NPBUF , 

X 


••Ml ft... IMi M 

\ ■ .•* ( } « 
V 1 V 1 44*. V U 

A B E a 

F0 

•Mja ***• 

. jl O 



BEQ 

FOUND 


; END OF SEARCH DATA 

•••<> uai. IMi. M 

••• •<. *•. ) '3 « 

♦ |M > * , » « [|J » « n t *| 

ABE 4 

C9 

3F 



CMP 

# 51 7 11 


2 W I L DC AFT) 

,;-.o»4U 2 

A BE 6 

***** ** 
1- O 

F5 



B E Q 

SEPNX7 



—V 1“** 

■ojjU 2 

HbLD 

D 1 

r~' t r~‘ , 



CMP 

( PC I NT A 

i 

* H 

Y 

3 \/~ s i J « 

**• ’**» •**• *•** IJ 

R B E A 

F0 

F 1 



BEQ 

SEEN X 7 



“T *“V *—? .**, 

**, / f ; 11 

*444 1 •Mi’ / SI 

ABEC 

44** •* 

Hi * 

A** 

1 D 



Hpq 

SEEN X A 


; LESS THAN MATCH 

taaaa aiaia ai*a 44 

3380 2 

■»*"*• ***** ***** 
hi b hi hi 

Ab 

79 



E D A 

RANGE!- 



MM. ***** 4*44 *4 

bb’YU 2 

'I**. J***. »* 

H B r O 

F0 

19 



BEQ 

SEEN X A 


; NOT RANGE SEARCH 

3400 2 

ABF2 

E8 



BERN X 8 

I NX 




34 1 0 s 

ABF 3 

BD 

00 

fj V 

■-* a*** 


1 T* A 

L... 1 J R 

I NPBUF , 

V 

4* \ 

; TEST TOP OF RANGE 

*4 444&4 .* 1 1 “ 

•4- 1 T «w *4* / a 

ABF 6 

DO 

FA 



BNE 

BERN X 8 


; FIND END OF PART 1 

b4bUS 

*4 4444 *444* 444* 

AB h* H 

4*\ .** 

H 

FF 



LDY 

#*FF 



3 4 4 0 2 

ABFA 

ES 



SEEN X 9 

I N X 




.;-.45U 2 

ABFB 

C8 




I NY 




”T A A M « 

-M- 1 T W *44’ V 

ABFC 

BD 

00 

0 2 


1 *r\ a 

L_ L? hi 

I NPBUF j, 

x 

A 


b4 / O 2 

hBI" F 

a*»aa •* 

h* «. ? 

IB 



B E Q 

FOUND 


; END OF SEARCH DATA 

~*r ,7 .*♦**. 

b43U 2 

** a a*. aa a 

mL’J 1 

1 7 9 

***** ***** 
oi- 



CMP 

# 11 ? ,! 


; WILDCARD 

b49u 2 

•f •**» M .♦*** 

HLUj 

F 0 

p A 



BEQ 

SEEN X 9 



3500 s 

A COS 

p**. .1 

D 1 

♦ 4 ** 

***** 



CMP 

( PG I NT A 

) , 

Y 

35 1 0 : 

*4 a*** 4* ***** 

Auo / 

F 0 

FI 



BEQ 

BERN X 9 


; MATCH-TRY NEXT CHAR 

444J» *4*4* 444* 44 

y\ t « 

' 44* * 4m. *44* Xi 

ACU9 

B 0 

1 1 



DCS 

FOUND 


; IN RANGE -MATCH OK 

3540: 

A COB 

V f’l 

•S»a* **• * 

DC 

B3 

SEEN X A 

J SR 

I NCPTA 



b55U 2 

ACOE 

** ***** 
a»*a 

R--J 

A £* 
Ut 



LDA 

TYPE 



“3 nr / .. 

U/ ‘I 1 u 

A C i 0 

*ia« t »ata > 

Lr '*7 

5E 



CMP 

# “ T » 


j IS IT POS DEPENDENT 

bb 7 U 2 

AC 1 2 

•7 V 

B5 



BCC 

SEEN X 5 


; N 0 - T E S T A L L 0 F F HELD 

■:o9u ; 

AC 14 

Au 

** ** 
OO 


19 

NX i KEL 

LDY 

#0 

k» 

u 

NO MATCH-SET FLAG 

3600 2 

hC i b 

i 

M4ja ***** 

• Jt aji 



LDA 

( PCRREC 

) ? 

Y 

Oil! 1 U 2 

AC i 3 

i“i Q 
•**• / 

SO 



ORA 

#$80 



^ A v O ” 

* *4* " W J.. *„• II 

A U 1 A 

91 

'7' •••!■ 



STA 

( PuKREC 

* 

ff 

Y 

b64U 2 

ACiC 

■»« ^** 
f 1 

*!■** **a ' 

F 0 

B 8 

FOUND 

JSR 

ADDLEN 



44444 4 4*444 *4 

A H ?‘ l n 

*44.* 4444 W V 7 » 

nC 1 j ' 

90 

96 



BCC 

BERN X 4 


; GOTO NEXT RECORD 

obt'O 2 

APv 1 

1 1 W 4.M 4* 

r*** / 

S:i 0 

***** ***** 

/ / 



INC 

TEMP 3 


; DID DO SEARCH 

■»H« * ****f *4 

A 6 / U 2 

a* na^ M**_ aaaa a 

hi C/ wl -J .' 1 

»*t r^, 

4 C 

00 

AB 


JMP 

SERCH2 


; GOTO NEXT FIELD 

3690 2 

A r** **^*1 
r *1 j! O 

f'i 3 

■i« J. 


SERDON 

LDA 

PBGREC 



3700 2 

AC 28 

A A 

j * «a! /aa|4 

*7* 

***** *l*aa 



LDY 

PBGREC+ 

1 


T"7 } fj a 

/ 4. '.4* H 

r\ I"’. r. 

H L.- hi 

O -.J 

■i> -i’ 



b 1 A 

PCRREC 



.4444 *»*V ,—44 ~ 

7 i “ 

-*m. 1 / 4*44* S 

A t 4 ‘“ -■“< t““ 

hi tw jl W 

O /» 

q4 

•‘•I* -*1 

*Jt A *}* 



STY 

PCRREC- + 

1 


3730 s 

a r ■ cr 

r*i u.- jt. Cl 

85 

1 4 



>*»* ***** 

•:::= T A 

I NT GEE 


2 SET LAST TO BEGIN 

3740 s 

RL-i-U 

84 

1 c:r 

.U w 



STY 

I NTGER+ 

1 


V / J, *». 1 \ 1 * 

W / W -J U 

A r*- ^ 

{••1 j:.. 

7-0 

■S»i» 'm * 

1 Lc 

B 6 


J SR 

p | p ?::r j n 

W 44444 1 \ 3 *444. A.** 


; CLEAR FIELDS 

• **f. Ml*. 4 4* 

b / 6 U 2 

AC35 

a cr 
H 

is 



LDA 

PFTFLG 


; IS IT FORM PRINT 

444*4 *4444 *4444 *4 

•m* ! ,* / V u 

7\ ,M V -7 

S"1 U -J* / 

DO 

OE 



BNE 

SERDN 1 


; Y E S - D 0 E V E R Y T H I N G 

3 7 8u s 

*- **** M.J. 4**4 

hi L- -i* V 

A ^ 
H 

FF 



LDA 

MESGFL 


2 W A S S 0 M E T H I N G D 0 N E 

444*4 ***** *44* 44 

/ W 3 ) “ 

/ / '*4* B 

AC3B 

DO 

0 2 



BNE 

SEED NO 


\ -• r**» r". 

2 Y L 4 ::. 

3300 s 

AC3D 

38 




SEC 


K 

M 

NO-SET ERROR FLAG 

38 1 0 2 

^1 .»l. *ma a**** 

HL/0«L" 

60 




ft r a 





38 1 0 s 


3840 ” 

A /! -5 

HLt i. 

j***. •« 

r u 

70 



B t y 

SERDN 3 

« NAB A SEARCH DONEE 

3850 s 

AC43 

A r* : 
H7 

00 



LDA 

#0 


5860 s 

AC45 

MM *•«•. 

bu 

-•* 


51 

U i H 

TEMP 3 

; N 0 T H I N G D I S P L A Y E D 

3880 2 

AC47 

H O 

00 


SERDN 1 

i r*. \ ,• 

L.DV 

#0 ; 

1 YES-DISPLAY IT 

3890 £ 

AC 4 9 

Bi 

M«f* Mty« 

-. 1 '' O 



L, i J A 

CPCRREC) . 

*. t 

V 
i » 

3900 “ 

AC4B 

30 

«::r f" 

*»>♦.* C . 4 



BM I 

SERE) M2 

; BIT ? 7 SET -NO MATCH 

y t Q 1 o ■■ 

*— * / 4. it 

A Lr 4 D 

A 

01 



LDX 

# 1 


*.•.* / •!••• '«* it 

AC4F 

MM • 

W 4h 

O ‘«. J 

"7 ,m v 

/ / 



STX 

TEMP 3 

; S 0 M E T H I N G D I S F' L A Y E D 

3930 s 

ACS 1 

••* i * 

• 1 m. ‘m* 

06 

Bl 


•J SR 

DISREC 

; DISPLAY RECORD 

3940: 

AC 5 4 

.•a j::: - 
HU 

.J» .Jl 



L D A 

PCRREC 

5 SAVE LAST DISPLAY 

HM4 MM »>«M M 

■j'VS'J 2 

H Ljo 

A 4 

‘7’ /j 
.Ji 



LDY 

PCRREC+ 1 


3960 s 

a p* »:::* r**» 
H U U O 

bj 

14 



ST A 

I NT GEE 


3970 s 

AC 5 A 

84 

15 



STY 

I NTGER+ 1 


3990 s 

AC5C 

M .M*. 

.* A 1 m. 

HU 

18 


<2 

LDA 

PRTFL..G 

2 TEST FOR PRT MODE 

4000 s 

AC5E 

F 0 

0B 



b E Q 

SERDND 


40 1 0 s 

AU 60 

j... 

41 

A 7 


J bh 

P‘PJPPP; 

; Y E S - P R I N T R E CORD 

4020 s 

AC63 

9 0 

4 A.|, 



BCC 

SERDN 2 

2 C0NT 

4030 s 

H U O U 

E0 

FF 



CF'X 

4 r* r" 

2 STOP KEY EXIT 

4040 s 

HL6 / 

F0 

4 Pi 



BEQ 

SERDN 3 


4050s 

H C 6 7 

DO 

4D 


14 

BNE 

SERDN 5 

? EX IT- ALWAYS 

4070: 

AC6B 

A u 

0A 


SERdND 

LDX 

:j:f: 111 

i! -J. *.«* || 

7 P R L bj b -b F 1 > « » „ 

4o8u 2 

AC6D 

f) 

4m. V 

BC 

B 9 


*y -•**% «**•, 

\j bK 

MESS AG 


4090 s 

AC 70 

20 

M. »M** 

A / 

B5 

SERL0F' 

jsr 

GETCHR 


4 1 00 : 

**** •♦♦r 

H L- / u 

48 




PH A 



4 i 1 0 s 

AC / 4 

20 

0B 

B 6 


JSR 

CL E ARB 


4 1 r?r) * 

J 4. rW V It 

hL / / 

6 8 




F'LA 



4 1 30 : 

AC 7 8 

C9 

r“i »*«* 

O 



CMP 

#PF 1 

2 F 1 . 

4 1 40 2 

AC7A 

F0 

2D 



BEQ 

SERDN 2 

; GO TO NEXT RECORD 

4 1 50 s 

AC7C 

C9 

43 



CMP 

#"C" 

; CHANGE 

4 i 60 s 

/V **M. *MM **H« 
j.J: { / t*** 

• I M** r / Imii 

DO 

06 



BNE 

BERN 2 1 


4 1 70 s 

AC 80 

20 

"T 

M 

M M 

A A 


JSR 

CHANG R 

; GO CHANGE RECORD 

4 1 80 2 

ACS 3 

4C 

6 b 

AC 


JMP 

SERDND 

; G E T N E X T C H A R ACTE R 

4 i 90 s 

AC 86 

u9 

4 4 


SERN21 

CMP 

# n D" 2 

DELETE 

4 f"l M 

1 *«• ti 

ACSS 

DO 

15 



BNE 

SERN22 


421 0 s 

AC8A 

20 

52 

B0 


JSR 

npi FTF 


• 1 MU MM •• 

4 •• f ) ” 

r it*.. .»»■• *m it 

AC8D 

20 

1C 

B6 


JSR 

CLRFLD 

; CLEAR FIELDS 

4230 s 

M MM^ MM M 

hC9U 

A 5 

31 



L D A 

PBGREU 

! SET LAST TO BEGIN 

4240s 

A P **“ 

H U *7 U 

^•m| M«|| 

♦**r .***•, 
•m . 1 .ii.. 



LDY 

r bbKLL"i“ 1 


4u5U s 

AC 9 4 

o 

•_.> u 

14 



8 1 H 

I NT GEE 


4260; 

AC 9 6 

4 

15 



STY 

INTGERh-1 


4 7 O ■ 

1 Am s V a 

AC 98 

A 9 

00 



LDA 

#0 


4280 2 

AC 9 A 

85 

*"v “7 

♦♦ / 



ST A 

TEMP 3 

; N 0 T H I N G D I S P L A Y E D 

XJ. Wf 2 n 

l Att V ’m' It 

AC9C 

4 r 

1 w 

A 9 

A C 


JMP 

SERDN 2 

; G 0 T 0 N E X T R E C 0 R D 

4300 s 

AC9F 

mm .m 

r * : v 

U *7 

50 


6ENN22 

CMP 

# ,, P" 2 

SCREEN PRINT 

43 i 0 s 

ACA 1 

DO 

Ml 4l.l 



BNE 

SERDN4 

2 G 0 B A C K T 0 R E T R E I V E 

4320: 

{•••1 Lf H u 

20 

U B 

A H 


J bh 

PENT 

SPRINT RECORD 

4 u uO S 

.**• n i 

Hunt) 

4C 

6 B 

AC 

12 

JMP 

SERDND 

: GET NEXT CHARACTER 

,q -T cr a 
< U -J , 

A C A 9 

4m. *m‘ 

F0 

B8 

? 

SERDN 2 

J SR 

ADDLEN 


4360 s 

ACAC 

90 

mm It.. 



Pif-p 

SERDN 1 

; GO TEST NEXT RECORD 

4370 s 

A CAE 

A *‘"'i 

HU 

M. *•**» 

Ou 



LDX 

#3 

END OF FILE... 

4380s 

AC B0 

,MM *♦ 

2 O 

BC 

B9 


JSR 

M E u u A h 


4390 s 

ACB3 

r ’\ i 

H ”7 

20 


SERDN 3 

LDA 

# !l n - 

DUMMY CHAR 

4400 s 

ACB5 

8 5 

”7 nr 

• a VmJ 


SERDN4 

S i A 

TEMP 2 

SAVE CHARACTER 

4410s 

ACB7 

18 




CLC 

it 

*! 

NO ERROR 

44? n «*• 

J r Am *m* V 

A CBS 

AS 

14 


SERDN5 

LDA 

INTGER 


f *t .1 *-*t* 

4 4 u u s 

ACB A 

A 4 

1 5 



LDY 

INTBER+1 


4440 s 

ACBC 

85 

• J* u 



p*\ "f « 

O i f”i 

PCRREC 


4450 s 

ACBE 

8 4 

“T .*i 

u4 



STY 

PCRREC 4- 1 


4460 s 

AC CO 

60 




RTS 

n 

** 

BK TO RET RE I'VE 


II 


II 

H 


u 

« 


ROUTINE TO SORT RECORDS 
FIELD DEFINED IN SEARCH 


BY 

ROUT 



n 

4 


4510: 

ACC 1 

.* *. * : 
4**t ** 

t 1 .4*** 

1 E. 

oOR r 

LDX 

#30 

5 ’ SORTING. , . 

4520 s 

ACC 3 

/***X '* 

H o 
♦**< **•• 

•> •••>• 
i. / 


STX 

S'WPFLG 

; SET SWAP' F LHb 

4530 » 

ACCS 

20 

BC 

B9 

•v p*. p. 

bh 

MESS AG 


id- 5 4 O " 

r w i •*** u 

A C C b 

n fj** 1 

hi vJ 

2D 


L D A 

F'LSREC 

: SET SORTEND TO FI LEND 

4550 s 

A CCA 

LUt *i *]. 

2F 


LDY 

F'LSF^EUH" 1 


4560 s 

ACCC 

O cr 

O vJ 

20 


♦**• ***** n 

o 1 H 

BUFPTR 


4570s 

ACCE 

84 

V 1 

*l*»* »*• 


STY 

BUFPTR+ i 


4590 s 

AC Do 

A 5 

-1 -*7 

J. / 

S0RT0 

LDA 

SWPFLG 

; ANY SWAPS DONE 

4600 s 

ACD2 

F0 

!*•*- *-*r 

u 2 


BEy 

SORT DM 


46 1 0 s 

ACD4 

** t i*»»* 

H D 

" 4 t* *1 

•J» I 


LDA 

PBGREC 

s SET PASS TO BEGIN 

4620 s 

A C 0 £> 

A 4 

***** /*** 
2 2 


L D Y 

PBGREC+1 


4630s 

ACD8 

***** 

C5 Pi 

2 2 


!***'• *T* ****** 
O 1 hi 

t***- ft-**, f* 4 *. r**. ft” ft*®*. 

F C R. R E C 


4 6 4 O » 

A L D H 

84 

*••»• /] 

* J* /B T 


STY 

PCRREC+ 1 


4650 s 

AC DU 

** **** 
/ *. X * 

hi T 

00 


L..DA 

#0 

; CLEAR SWAP FLAG 

46 6 o s 

ACDE 

Q ir:r 

17 


ST A 

SWPFLG 


4 6 / 0 s 

ACEO 

T O 
• J« o 


SORT 1 

c p p 

'llll U*M Ml* 

a 

PLUS ONE 

4680 s 

riL-L. I 

/\ t::: - 

hi -_J 

• «»•* 

2' 2 


LDA 

PCRREC 

; ADD OFFSET TO FT A 

4690 s 

A C E 

/ kt 

14 


A D L / 

I NIGER 


4700 s 

A p p S 

I i U’ L.*. 

o 5 

22 


STA 

POINT A 


47 1 0 : 

rt r". r*** *®**r 

ACE / 

A 5 

34 


u... IJ h 

PCRREC + 1 


4720 s 

{in* Q 
M U L. 7 

65 

15 


ADC 

INTGER+1 


4 / .:>u s 

n r— ‘pj 

H L> b. b 

85 

*4*4* ***** 


STA 

P0 1 N T AH- 1 


47- 

10: 

a p p n 

! 1 1*..* L. L* 

1 8 



pi p 



4 / 50 s 

A C E Ei 

A 5 

***** **«•» 

2 0* 


L D A 

PCRREC 

; SET POINT B BEGIN REC 

4 7 6 O s 

A CFO 

6D 

01 

CF 

ADC 

RECLEN 


.iJ. •• / ii “ 

ACF3 

n !:::* 
*»*• * 

O -_J 

r 4 *. jfi 


STA 

POINTS 


4780: 

A.CF5 

A 5 

•*r 


LDA 

E-'CRF^EL-H- 1 


479Q n 

AGF 7 

6 D 

02 

CF 

**** •♦** 
•» : v : • 

hiL'Lf 

RECLEN + 1 


4800 s 

♦*, ***♦ ***** »* 
AlF A 

E>' 5 

::.r 

t* l 

S| 

STA 

P0 I NTB+ 1 


4820: 

ACF c 

A 5 

—i 

j-i. vJ 

H 

LDA 

PO I NTB+ 1 

; TEST FOR END OF PASS 

4830 s 

** .*•♦» J**T" ***** 

HL-P L 

irr 

L- -.,.j 

21 


CMP 

BUFPTR+ 1 


4840 s 

AD 00 

9 0 

31 


BCC 

SORTS 


4850 s 

A DO 2 

Do 

C) 6 


BNE 

SORT 2 


4860 s 

A D O 4 

A 5 

U. 4 


LDA 

PO I NTB 

; TEST FOR END OF PASS 

4870 s 

A D 0 6 

.♦***. ?•♦** 
L-D 

20 


CMP 

BUFPTR 


4880 s 

ADOS 

90 

29 

■l*M • 

|| 

BCC 

sf p-* : f 5 

W W » *- l w 


4900 s 

ADO A 

38 


C; n C* T 

r M p*. 

.’*"t r"* ! * 

*••• ***** »»— 

w 

MOVE NEW END BACK ONE 

4910: 

ADOB 

A o 

2 O 

a*** v 


LDA 

BUFPTR 


4920s 

ADOD 

E L 1 

01 

CF 

BBC 

RECLEN 


4930 s 

AD 1 0 

8 5 

20 


• 9 * m \ **?•• .**. 
d 1 hi 

BUFPTR 


4940s 

AD 1 2 

A 5 

21 


LDA 

BUFPTR+ 1 


4 » 

I / W V K 

fiD i 4 

ED 

02 

CF 

S B L- 

RECLEN- + 1 


4960 s 

HU i / 

Qnr 

2 1 


ft*®*, m®* ♦», 

CD i Pi 

BUFPTR+ 1 


4970 s 

AD 19 

a cr 
hi 

'm*^ it**. 


* ***• *-_ 
2 U Pi 

PBGREC + 1 

: TEST FOR AT BEGINING 

4980 s 

AD IB 

C5 



CMP 

BUFPTR + 1 


4990 s 

AD 1 D 

9 0 

B 1 


**** t ft®**, ft***. 

iwi* *•-» 

BOR TO 


5000 s 

AD 1 F 

DO 

06 


BNE 

SORTDN 


50 i 0 s 

AD2 1 

s\ cr 

hi -._J 

31 


LDA 

PBGREC 


W T r** J* n tl 

AD 23 

C5 

90 

a*** *«* 


CMP 

BUFPTR 


5030 s 

AD 25 

90 

A 9 


Hpp 

BOR TO 


5050 s 

AD27 

20 

0B 

B6 SORT DM 

3 SR 

CL E ARB 

; SORT DONE 

5060 s 

AD 2 A 

Pi -~i 

"T *1 


LDA 

PBGREC 

: SET CURRENT BACK TO 

50 / O 2 

AD2C 

Pi 4 

0*2 


LDY 

PBGREC -f* 1 

; BEGINNING OF FILE 

5080: 

AD2E 

85 

*.*•* ... f . 

* J* O 


STA 

PCRREC 


c ;090 “ 

W ‘t, 7 *-*’ u 

A D o O 

84 

34 


STY 

PCRREC- + 1 


5 i UU 2 

a n 

hi U • ..1 

60 



RTS 



5 1 20 2 

AD 3 3 

••t r*. 

o 


“ 

SORT 5 

..** ***** Vp* 

3 

? 

PLUS ONE 

5 i 30 s 

hi U •!< 

A uh 
H 

24 


1 Vft ft 

LDh 

POINTS 

SADD OFFSET TO F'TB 

5 1 4 

•0 2 

A D 6 

/ in:* 
O -J 

14 


ADC 

I NTGER 


5 1 50 s 

hi IJ •»> o 

p 

****** ***** 

24 


S 1 !"‘i 

POINTS 



5 1 60 s 

A .0 *7 H 

**•* !***• 
H O 

r\ $::r 

X*. mi 


LDA 

PO I NTB+ 1 

5 1 70 s 

AD3C 

l ".:r 
0 6 

* ***** 
I b 


**♦* «*** 
H i J L 

INTSER+1 

«=*. •{ p Ci 

M 4 J 6 CL 

r"i •>:::■ 

O 6 

a***' J”;* 

«4««* %***^ 


ST A 

PO I NTB+ 1 

5 POD- 

A D 4 O 

Ao 

“•v s 
/ 6 


SORT 6 LDX 

TEMF‘2 ; GET FIELD LEN 

7 V 1 o « 

W -U-* *1. I! 

hi D 4 6 

A0 

FF 


LDY 

#$PP 

!•— 

; .• 5 ! " 

W 4m 4m V H 

,*♦. r*. p*i ,n 

H L- 1 *r *t 

n o 

L** O 



SORT 7 I NY 


f***» **•* *•«* *» 

526U S 

AD45 

CA 



DEX 


57 * 40 * 

AD46 

3 0 

18 


BMI 

SORT NX ; LENGTH END- 1 

pi v p“ r> « 

W 4m W 'w 4 1* 

M ***• ** 

H U 4 6 

1 



L. D A 

(POINT A) „ Y 

5260 s 

H .U *r H 

D1 

7 4 


CMP 

(POINTS) , Y 

P770 * 

W 4m r v w 

AD4C 

F0 

F 6 


hFQ 

SORT 7 

:♦“* .***% ,**. 
H f } * 

'pm 4*iv *** tf 

AD4E 

9 0 

1 0 


BCC 

SORT NX 

pi 7 Q A « 

tm' *Ut* • '•*' II 

AD 50 

tl 6 

17 


I NC 

SWPFLG ; SET SWAP FLAG 

pm ••♦♦♦ *# » 

5600 2 

ADS 2 

7f) 

-I*** H* 

“7 

4*m 

AD 

JSR 

SWAPRC ; GO SWAP RECORDS 

r_" -r o „ 

AD 55 

A 5 

9 1 


*! 

LDA 

STOP K Y ; TEST R U N /STOP 

5330 s 

AD57 

C9 

7 F 


CMP 

#$7F 

5340; 

AD59 

DO 

05 


BNE 

SORTN X ; NO-CONT I NUE 

5 0* 5 O £ 

AD5B 

** .♦* 
OA 



ASL 

5 MAKE BIT ? 7 HIGH 

5360 2 

A DSC 

Q cr 

oj 

82 


ST A 

CPI ELD ; SET CFIEL.D FOR EXIT 

5 % 7 f ) » 

W 'm* •• %,* II 

AD5E 

yn a* 4 , 

DO 

.*** ***v 

L / 


BNE 

S 0 R T D N A L W A Y S - E X I T - S 0 R T S< S R 

<m» m«» m*< m 

5,0 VO 2 

AD60 

i 8 



SORT NX CLC 

;; MOVE FT A & B 

5400 s 

AD6 1 

AS 

*6 -6 


LDA 

F'CRREC ; BACK TO BEGIN OF RE 

54 1 0 2 

A D 6 6 

6D 

O 1 

V *i. 

r {:::• 

ADC 

R E Li L E N 

5420 2 

A D 6 6 

85 



o i A 

PCRREC 

5430 2 

AD 68 

A 5 

-J 


1 T\ /\ 

L.. U r-i 

PCRREC+ 1 

5440 s 

AC) 6 A 

6 D 

a*** **** 

02 

C F 

n v\ / ,H . 

H U 

RECLEN+ 1 

5450 2 

AD6D 

85 

M, v n 
*Jt 


S T A 

H L, R R E::. C ■+■ 1 

5460 2 

m JJ 6 r 

4C 

E0 

AC 

JMP 

SORT 1 






; ROUTINE TO 

SWAP TWO RECORDS 

5500 s 

AD72 

18 



SWAFRC CLC 


P *=; 1 A f 

AD73 

a:* 
A <6 

•**^* ■•<(* 


LDA 

PCRREC 

i::“ cr "3 , 

V**J ui uL *•** M 

1 ! / pi 

1 * ^ *f*«p 

85 

4m 4m 


ST A 

POINT A 

5530 2 

AD 7 / 

6D 

01 

CF 

ADC 

RE GLEN 

5540s 

A D 7 A 

n n:r 
O’ 6 

2 4 


♦♦♦* ***** ** t 
o 1 H 

PO I NTS 

;:n; r.:r u 

..J -..J -..J -J a 

AD7C 

r.:;- 

Ao 

34 


i.... D A 

1- CRRE.C+ 1 

5560 s 

AD7E 

•M* ***** 

a 5 

*4*. 'm 1 


ST A 

PO I NTA+ 1 

P P "7 A *» 

AD SO 

6D 

02 

CF 

ADC 

RECLEN+ 1 

5580 s 

ADS3 

6 5 

"7 nr 

•t*»a ****** 


ST A 

PO I NTB+ 1 

P P Q A “ 

w w ; v * 

AD 85 

A0 

00 


LDY 

#0 

D&UU a 

A r\ O T 

mUo 7 

Bi 

4m. 4m 


SWAP! LDA 

(POINTA) , Y 

56 i 0 ; 

AD89 

A A 



TAX 


5620 s 

HL'oH 

Bi 

.-1 

.u:. 4 


LDA 

(POINTED . Y 

56602 

AD8C 

91 

a**^ M 1 


SI A 

(POINTA) , Y 

5640 s 

AD8E 

A 

QH 



T X A 


5650 s 

AD8F 

91 

74 

4m I 


ST A 

( hU 1 N IB) , Y 

5660 s 

AD9 1 

7 A 

*w*» **• 

*m **** 

DC 

*♦»» ***** 
III i 

b o 

JSR 

I N C P T A ;6Q TO N E X T B Y T E 

56 / O s 

AD94 

7 A 

D5 

7“.- r*-t 

DO 

J SR 

I NCPTB 

7 6 S O S 

AD97 

Bi 

7 7 

4m »U*. 


LDA 

(POINTA) ii Y 

5 O'Vo 2 

AD 9 9 

■*” r*) 

^ V 

-v 

/ r 


AND 

#$7F ; MASK BIT ’7 

‘■“t 7 i O " 

AD9B 

DO 

L A 


BNE 

SWAP 1 ; ZERO IS END 

p "7 i , " u 

u . 1 / X V a 

AD9D 

60 



SWAP DM RTS 


***** ***** ***** •* 

5 / 60 2 

AD9E 




2 

nr t ! nr 

S, "FILER. PAL PT5" 






; MICROFILER 

U 

H 

p T '7 
* * ***** 






N "* 

; NUMERIC DA 

TA FORMAT 






2 r i Kb ! BY1 E 

IS SIGN 






; -NONE Z 

ERO IS NEGATIVE 






5 NEXT 5 BYTE 

S ARE MANTISSA IN BCD 


?! 

it 


It 

H 

3 ! 

j 

1! 

ft 

tl 

? 

II 

f? 


-IN RIGHT TO LEFT ORDER 
NEXT 2 BYTES ARE DECIMAL POINTS 
-SAME FORMAT 

BOTH ACCUM1 AND ACCUM2 ARE USED 
THE SAME - AC CUM 2 IS THE SUM 


U 

»? 


:t 

ft 


Si 

ft 


ROUT I NE 
NUMER I C 


TO SUM OR AVERAGE ALL 
FIELDS 


IS 


r*. r". 

W i i * 

ifm t *■** SI 

AD9E 

QKT 

O 

***** •••£• 

/ -.0 

SUMMRY 

8 i A 

T MR END 

s SAVE TYPE 

• •••• « •• 

V If } » 

HiJHU 

MM M 

40 

1 C 

b'6 

J SR 

CLRFLD 


***** j •» 

1 « '! « 

AD A 3 

A j:.'! 

00 


LDX 

#0 


***r* /*n „**. 

\ yi t * 

*lm '«* li 

AD A 5 

Q 6 

24 


STX 

PO I NTB 


**t* -r ***. 

ooU 3 

ADn 7 

***• • 
66 

v n::; 

4*« W 


T v 

j A 

POINTB+1 


•**,* » *..* « 

ADA9 

BD 

07 

CF SUMRY1 

L D A 

FLDTBLj, X 


™; *■■"( i"i « 

•a. 1 *m* a 

M Mti *• mi 

hDhl 

85 

8 3 


r** a 7' a 

1 A 

CFDLEN 


■-! A f") »« 

W •h / 1? 

ADAE 

1 0 

IB 


BPL 

BUMPY 3 


*** 1* HMf 

•*, / ! t “ 

v 1 / v a 

ADBO 

29 

4 o 


AND 

#*40 

; TEST FOR NUMERIC 

IwA * 

*-*- ? W* V' >1 

** ***« •*** ♦•*• 
A D b b 

DO 

17 


BNE 

SUMRY3 


***** ***•, ** 4 

W 1 ! ” 

, ^* 1 ; a 

ADB4 

8 6 

; 

/ o 


STX 

TEMP 2 

3 HAVE ? X 

400 : 

A D B 6 

20 

~7 trrr 

At 

JSR 

SUMM I T 


4 i 0 3 

ADB9 

**♦4 *• 

Of i 

* * 


B U L.- 

SUMMON 

3 OVER FLOW ERROR 

420: 

ADBB 

A5 

***** ***** 
7 


L- D A 

TMPEND 

; GET TYPE 

*t ***f 

j£L *•*: I *« 
r •«’ u 

ADBD 

C9 

41 


CMP 

-j± J! A 51 

tt M 

; WAS IT AVERAGE 

440 ; 

A DBF 

DO 

05 


BNE 

SUMP Y 2 

. Kin 

If 1 1 *..J 

450 2 

ADC 1 

7 f) 

E 1 

AD 

JSR 

AVER AG 

3 YES- D 0 h V E R H bh 

460 2 

A DC 4 

9 0 

1 A 


BCC 

SUMMON 

; OVER FLOW ERROR 

470; 

A DC 6 

V (“I 

CF 

AF SUMRY2 

JSR 

SUMPRT 


480 ; 

ADC9 

A / 

H6 

»*•#• * 

•* ***** 


LDX 

TEMP 2 

5 RESTORE ’ X 

4 v 0 ; 

ADCB 

A 5 

Q “V 
6 •-> 

SUMRY3 

LDA 

CFDLEN 

; GET LENGTH 

o i"i « 

ADCD 

18 



CLC 



5 i 0 ; 

ADCE 

• M “t t***i 
.* *7 
*!*•* » 

r~* 

• J* r“ 


AMD 

#7-001 11111 5 MASK OFF TYPE 

520 ; 

** **** *•*• *• 
fiUUU 

6 b 

2 4 


ADC 

FQ I NTB 

; ADD L E N G T H T 0 P 0 I N T E f 

5 b O ; 

A D JU b 

85 

24 


ST A 

PO I NTB 


540 ; 

ADD4 

A V 

00 


LDA 

#0 


550 ; 

H I J U 6 

••• ST 
6 ■uJ 

25 


ADC 

PO I NTB+ 1 


'.J « 

A D D 8 

85 

[::r 
aT» -.J 


ST A 

PO I NTB 4-1 


d / u ; 

ADDA 

E 8 



I N X 



5 8 0 ; 

ADDB 

EC 

00 

CF 

CPX 

MAXFLD 


590 ; 

a dde;: 

DO 

C9 


BNE 

SUMRY 1 


600 ; 

A DEO 

60 


SUMMON 

tt 

RTS 



6 2 O ; 

ADE1 

A ,*“*. 

* « .* 

t t 4m 

07 

hv LhHb 

LDX 

#7 


630 ; 

ADE3 

A o 
M7 

00 


L. D A 

#0 


640 s 

ADE5 

95 

6 1 

A VR 1 

8 T A 

AC CUM 1 , X 

; CLEAR COUNTER 

r *“.i j 

W w V » 

ADE / 

A 
w Mi 



DEX 



660 ; 

A *.***- !“** ***** 

HUtC 

10 

FB 


BPL 

AVR 1 


670 2 

A D E A 

A 9 

00 


LDA 

#0 


» *♦** «* 
68 U 2 

A D E C 

Q - m J 

7 7 


6 1 H 

TEMP 3 

; ND I G I T 

6 9 0 ; 

• • MU Mil* .*•*• 

HiJbb 

.A O 

Mi 7 

OF 


L... L) A 

# 1 5 


700; 

ADFO 

8 5 

err 

J U 


:***•■ **r A 
•::= f f”i 

TEMP 

; COUNT 

7 1 0 ; 

ADF2 

78 



SEI 

1! 

*? 

NO I NT ERUPTS 

***f .****. 

/ } R 

f B 

ADF3 

pm- .♦♦•* 

I'" O 



BED 

IS 

f« 

SET DECIMAL 

— ? ***r r. 

ADF 4 

A 9 

6 9 

A VS UB 1 

LDA 

#< A CCU M2 


740 ; 

ADF 6 

A O 

00 


LDY 

# > ACCUM2 


7““f; 3 

/ w % ~* r n 

ADFS 

7 f") 

*»»*- ***** 

D / 

AE 

JSR 

rlhry 


7 AO ** 

ADFB 

U 6 

~7 nr 

/ wi 


DEC 

TEMP 


7 7 f“) « 

ADF D 

FO 

3D 


BEQ 

A V SUED 

3 DONE ON ZERO 

7 «o “ 

ADFF 

A 9 

6 1 


L.. D A 

#< AC CUM 1 


790 ; 

AEOi 

AO 

00 


LDY 

# > AC CUM 1 


800 s 

t~i 6 O ’j.* 

20 

rrrr 

A f ,M * 

A E 

■••* ini 

J b K 

RLARY 


8 1 0 ; 

A El 06 

A 9 

00 


L... D A 

#0 


P vT) '■ 

■*J *t*.. *«* t 

A EOS 

8 5 

/ 7 


8 1 A 

TEMPTS 


**-*• ***** ** 

660 2 

H **«»» ** H 

A iz. U H 

M **•*. 

A b 

07 

A 5 ! r~ i 1 7”: r—t 

Mi v 6 U b 

LDX 

#7 3 

DO TEST SUBTRACT 


840: 

A E O U 

~T O 

o o 




eEu 


SdU g 

AEOD 

B5 

6 i 



EDA 

AC CUM 1 , X 

b6U 2 

AEOF 

E5 

•j “*7 



S B C 

I NTGER+ 1 

870: 

AE1 1 

q n 

00 

02 


CT E 

INPBUF, X 

asos 

AE 1 4 

CA 




DEX 


QQf) “ 

W. 1 / *m‘ C 

AE 1 5 

t**i si:* 
b --j 

61 



EDA 

ACCOM 1 , X 

900 2 

AE 1 7 

L. - ! 

14 



SBC 

I NTGER 

W 1 ft » 

-* X *-*■ u 

HE I V 

***• **♦* 
9D 

00 

02 


ST A 

INPBUF., X 

Q 7* ft » 

* 4t»» *»»* R 

AE 1 C 

C A 




DEX 


QTf'i u 

AE 1 D 

B5 

6 1 


AVSUB3 

EDA 

ACCOM 1 , X 

940 g 

AE 1 F 

E9 

00 



SBC 

#0 

w-;a «* 

AE2 1 

9D 

5...J 1 J 

02 


ST A 

INPBUF, X 

V6U i! 

H in of 4 

CA 




DEX 


~r‘ ”7 f ) “ 

. 2 1.*** *!**« V*** 

10 

F 6 



BPL 

A V SUB 3 

980 » 

»* ;•*** ***** 
A inn: / 

90 

CB 



BCC 

H v oub x 

990 s 

r. j**** m r~\ 

H i:::. n. -7 

i". »♦*** 

H Z'J 

/ / 



LDA 

TEMP 3 

1 000 : 

H fci n to 

18 




CEC 


1 0 i 0 s 

AE2C 

6 7 

1 0 



ADC 

#X10 ; INC NDIGIT 

1 ft v C ) u 

X v Jm. ‘m 7 u 

AE2E 

O i- - 
O -. J 

"7 



b 1 h 

TEMP 3 

1 030 s 

AE30 

A 

ri x*. 

07 



EDX 

#7 ; SWAP TEST SUB TO ACCOM 

1 040 ,i 

m b. .t:: 

B D 

00 

02 

A V SUB 4 

E D A 

INPBUF, X 

1 050 s 

** ***** *»*t* ***** 

HI:::. j 

95 

6 1 



*■•• ***** M 

b I H 

AC CUM 1 , X 

1 060 s 

• * *•»•♦ t*HI »•»•* 

Hto / 

L- A 




••** ***** * « 
[if— x 


1 u / U s 

AE38 

i 0 

FS 



BF'L 

AVSUB4 

1 fipfi » 

a r** ".' i /* v 
HLOH 

***** ** # 
•j-U 

fj P* 



BM I 

AVSUB2 j ALWAYS 

i i 00 : 

AE3C 

1 O 



A v 8 U B D 

CEC 


111 0 3 

•* ***** — *** <*♦*, 
H b. b L } 

*•_ **4* > 

i*"l jl 

07 



EDX 

#7 s ADD . 005 TO RND OFF 

1 120 s 

AE3F 

BD 

4E 

/** i* w 

ht 

AVSBD 1 

EDA 

RNDGFF, X 

1 1 30 ; 

AE42 

95 

■* 

O X 



Err a 

AC CUM 1 „ X 

1 i 40 g 

A E. 4 4 

U A 




DEX 


1 1 50 s 

i***i b. H* vJ 

i 0 

FB 



p t p\ 

AVSBD 1 

1 1 60 s 

hitH / 

*♦♦* ♦* 
EO 

***** *♦*!* 
•E i 1 

A F 


J SR 

SUM ADD 

1 1 70 s 

AE4A 

A ’”'i 
M T 

oo 



E D A 

#0 

1 1 80 s 

AE4C 

Q .J 

70 



ST A 

ACCUM2+7 sDUMP LAST TWO PLACES 

1 1 90 g 

AE4E 

60 




RTS 


191 ft « 

i** 4tr* **» 'w' I? 

A E 4 r 

00 

00 

0 0 

•j 

END0FF 

. BYT 

0 „ 0 , 0 , 0 , 0 u 0 , 0 , $50 

i 230 s 

AE5 / 

*+•* ***** 
t : i**. 

o 

2 0 


REAR Y 

ST A 

B U F P T R ; S H I F 1" A C C U M 

1 240 s 

r* ***** ***** *•*• 

H hi u V 

84 

21 



STY 

BUFPTR+ 1 

1 250 s 

AE5B 

A0 

07 



LDY 

#7 

1 260 s 

AE5D 

B 1 

EU 


RLSHFT 

LDA 

(BUFPTR) . Y 

1 2 7 O s 

AE5F 

4Ei 




PH A 


1 280 g 

AE60 

*s*«« • 

-* ***** 
C }}**• 

V’ 1 



AND 

#$0F 

1 9Qf) » 

*i* .* V n 

AE6n! 

06 

7 / 



A A*** j 

M CD i... 

TEMP 3 ; MOVE TEMP3 INTO SPACE 

1 300 g 

A E 6 4 

05 

'7 "7 



ORA 

TEMP 3 

1 3 1 0 s 

A E 6 6 

‘****4 A 

jL ri 




R0L 


, ~*r .♦***. 

• •, l ) « 

X it 

A CT i "7 

{•“1 CL O / 

•*™i 

n. }•••! 




R0L 


***r ***** 

1 .:>jU s 

H E 6 b 

E H 




R0L 


1 “x 4 O * 

X 1 si 

H b o T 

•”A A 

M 




RQL 


1 *•, Hi 1 >» 

4* %** ? W V SI 

A E 6 A 

91 

20 



S i A 

(BUFPTR) , Y 

X •— 1 w v w 

A E 6 L- 

H 6 




PL A 


1 •. /ft» 

X ♦***- r ***• a 

Hb.6E> 

_***•_ **•*. 

*** 

- 

F r 0 



A N D 

#*F0 

i 380 : 

•• ***** • •*■»< 
H Cl ti F 

85 

7 7 



x w - **r 
O 1 H 

TEMP 3 

1 390 s 

s -I 

H cl / 1 

8 8 




DEY 


1 400 g 

/*. H* m V - r *", 

ml / n. 

DO 

r~ -"“i 
E *7 



B N E 

RE Shi FT 

141 0 s 

AE74 

60 




RTS 


14-j.Us 

•• ***** ***** »***• 

H b. / D 

A 5 

W ^1* 


SUMMIT 

EDA 

CFDLEN ; GET LENGTH 

1440 s 

HE / / 

‘~**t o 

* w 

*s*,. *• 

3F 



A N D 

#y.oo min 

1 450 s 

«* ***** ***** **** 
AE / ~f 

Ctt r ^*7 

8 E 



1 A 

CFDLEN ; SAVE LENGTH 

1 46 U g 

n ***** ***** **♦* 

Hb. / b 

A9 

00 



L U A 

#0 

1 4 / u s 

Hb. / U 

85 

14 



QTA 

w 5 n 

I NTGER 

1480: 

■> ***** *•••« •••*< 

HE / r 

85 

15 



•1) i H 

I NTGER + 1 

1 490 s 

** Mill *■•• 1 

H E o 1 

H E 

07 



EDX 

#7 


UJ 


i 500 2 

*» ••••< i«»* inji 

A b o b 

i i «••• 

•*y > : 

69 

***** ? U/i *••* 

burl j o 

7 1 H 

/'•. 7 7 i i h/i 7 V 
f— i L..- i i ,»u. ii A 

; CLEAR SUM 

1 S “: 1 7' » 

Ata5 

U A 



DE’X 



1520: 

A b b 6 

10 

FB 


bPL 

SUM 1 U 


1 530 s 

A ESS 

A 5 

***r .1 

o 1 


LDA 

F'BGREC 


1 540 s 

A E b A 

A 4 



LDY 

B G R b C 1 


I W«M »WH M 

1 5bu ii 

AE 8 u 

‘**‘j t**** 

o • J 

-**t* **n* 

do 

r~- i i M 1 n r ~* 

7 U I 1 LUr 

ST A 

PCRRtC 


j r* / 

AE 8 E 

S 4 

"y si 

•i« 4 


STY 

RLRKEC+ 1 


1 5 / O s 

AE90 

**n* /•“. 

•30 



bbC 

tfe 

f« 

ADD ONE FIRal By FL 

15Sus 

AE9 1 

z,tr* 

O w 

2 : 4 


A U 

F'OINTB 


1 590 n 

AE93 

o 

o 

-.■I j* "i 


ST A 

POINT A 


i 600 s 

AE95 

>7 O 
7 O 



TYA 



1 6 1 0 s 

AE96 

* f*»M 

6 b 

7 5 


ADC 

P 0 I NTB + 1 


1 620 s 

A b 7 o 

!**"'» HIT 

O 7 

. **;r 
<£.0 


ST A 

F'O I NTA + 1 


1 6-„'0 s 

3*. t**“ .****. .**. 

HQ7H 

a rj 
r17 

00 


LDA 

#0 


1 6 4 U 2 

AE9C 

A -*~i 

Mol 

07 


LDX 

#7 


1 650 s 

AE9E 

95 

61 

Bum 1 

ST A 

ACCUM 1 , X 

; CLP ACCUM 1 

1 660 s 

A Ei A U 

CA 



DEX 



i 670 s 

AEA 1 

10 

FB 


BPL 

SUMT 1 


1 680 s 

A Ei A -i* 

A 2 

O 6 


LDX 

#6 

; 4 DIGITS-DEC F'TS 

1 690 2 

A Ei A 5 

A 4 

b‘3 


LDY 

CFDLEN 

; GET LENGTH 

1 700 s 

AEA 7 

Q Q 
O O 


SUMT2 

DEY 



1 7 1 0 s 

AE AS 

•**1* .**. 
0*0 

4D 


BMI 

SUMT 5 


1720: 

A L A A 

B 1 

il'm iIIm 


LDA 

CPC I NT A) , 

Y 2 SCAN F U R ? 

1730: 

•a !•*»» n ill* 

A ci A U 

C9 

2 F 


CMP 

#“ . n 


i 740 5 

n mu ^i Mm 

H fc. H hi 

DO 

pr ”7 


BNE 

SUMT 2 


1 75 A « 

X / w v * 

AEBO 

98 



TYA 



1 / o U 2 

AEB1 

48 



PHA 

13 

H 

SAVE • n • LOCATION 

1770 s 

AEB2 

C8 


SUMT3 

I NY 



1 780 2 

A hi b •.„•< 

C 4 

O *T 
O 


CRY 

CFDLEN 


1 790 s 

AEB5 

F0 

3 9 


BEQ 

SUMT 4 


1 800 2 

AEB7 

B 1 

7 7 


LDA 

(F'O I NT A) , 

Y 

1 8 1 0 2 

AEB9 

0A 



a n i 

Hob 



1 820 2 

A E B A 

0A 



ASL 



1 830 2 

AEBB 

0 A 



A r"- } 
M O b 



1 840 2 

AEBC 

Un 



Hob 



1 p«=|A «. 

AEBD 

r* - « c::* 
•7 uJ 

61 


ST A 

ACCUM 1 ,, X 

* 

1 860 s 

A E B r 

C8 



I NY 



1 870 s 

AECu 

C4 

S3 


CRY 

CFDLEN 


1 SSO : 

A EC 2 

F o 

77 

4m W 


BEQ 

SUMT 4 


1 890 2 

AEu4 

Bi 

***** a*** 


LDA 

(F'O I NT A) , 

*, * 
Y 

1 900 : 

AEC6 

™ Q 

aim .* 

o }••■ 


AND 

#$0F 


1 9 1 0 2 

AECS 

15 

o 1 


ORA 

ACCUM 1 , X 


1 9 2 O 2 

AEuA 

:*-« i:r 
7 %J 

6 1 


ST A 

ACCUM 1 , X 


1 930 s 

AECC 

E8 



I NX 



1 940 2 

AECD 

E0 

08 


CPX 

#8 


i 950 - 

AECF 

DO 

Ei 


BNE 

SUMT 3 


1 960 s 

AEDl 

C8 



I NY 

t: 

u 

ROUND IN 5TH DIGIT 

-j G7A « 

AED2 

C 4 

83 


CRY 

CFDLEN 

; END OF FIELD YET 

1 980 2 

A EC) 4 

{*” i. ) 

1 A 


BEQ 

SUMT 4 


^ 990 s 

AED6 

Bl 

i '“‘i 

«l»«l 4a M 


1... D A 

(F'O I NT A) , 

Y 

***• ****** 
2UUU 2 

AEDa 

7 o 

4m. / 

OF 


AND 

#$Oh 


20 1 0 2 

A E D A 

c> 

w - 

05 


CMP 

#5 

S < 5 DO NT ROUND IN 

2020 2 

AEDC 

W f l 

12 


BCC 

SUMT 4 


2030 2 

AEDE 

1 O 



*»*••’ 1mm is*/ 



2040 2 

AEDF 

*7 Q 

/ "a*. a* 



SE .[ 

ii 

H 

NO INTERUPTS 

•7050 - 

j». w '«■ » 

AEEo 

F 8 



SED 



7 f ”} A 7? « 

a... *./ W u 

AEE 1 

Mali 

07 


LDX 

#7 


/ i \ / I : « 

a--. *-* ; •*.’ 9 

AFF 7 . 

1 : t»M 2 mm ‘m.* 

A O 
H 7 

0 1 


LDA 

# 1 

5 ADD ONE IN AND 

2080 2 

A till 5 

t cr 
/ ’..J 

61 

SUM 13 1 

ADC 

ACCUM 1 , X 

; CARRY IT OVER 

7 f“'i Q o “ 

M HIM IMII M»l 

£•■ |- 7 

X t Xmm U.m / 

7 5 

; ‘m.. 1 

6 1 


b l A 

ACCUM 1 , X 


2 1 00 2 

M ***** ***** «... 

Abb 7 

A 9 

00 


LDA 

#0 


2 1 i O s 

M MM* lltn HM 

A hi b b 

L, A 



DEX 



7 1 7 i "l «-• 

«!**■ a* !>»** v v 

A EEC 

DO 

F 7 


BNE 

SUMT 3 1 

; CARRY FULL 7 DIG 

7 1 7A *» 

-x*-* J* **«’ •• n 

H b b b 

D8 



••*** x» ** • X*»*‘ 



7 i 40 ,! 

*x— .i. r *«* u 

♦*_ **m •*•*• ***** 

Hbbr 

• MM MM 

o d 



CL I 




n 

*1 



2 i 60 2 

2 1 70 s 

2 1 oU “ 


M J«W ***** •• 

HLl” O 

aef I 

3 X w 1 -X- 

*- I 

Hi 


o o 

AS 


t i : x 

Q O 


dUM I 4 


PL A 
1 A Y 

v”. r- \ / 

Ub r 


v i Q n » 

a — j. *- tt 

M • *•»* IMM ••••• 

AE.F 4 

30 

.1 rr 
H* 0 



BM I 

SUMT 1 2 


vvnn «= 

lltM «t(U ‘ *M* tX 

Hbr 5 

1 0 

ub 



BPL 

SUM T9 

s ALNA vS 

v -7’ r j >= 

.i. u a.*, a«, u 

AbF / 

A4 

..*. M. r 

OO 


SUMT5 

LDY 

CFDLEN 


7?^(") » 

***** 4m* ***** *-* « 

hEF 7 

SB 



SUMT6 

DEY 



7 7 4 0 15 

.1... .!«. 1 V ff 

M |mm mn 

Htr H 

***r 

.j. C J 

***f* .***♦, 

W 



BM I 

SUMT 1 2 


7* H i ) t 

AEFC 

B 1 

*4*** 4*m 



LDA 

(POINT A) , Y 

; DUMP SPACES 

7 7 A (**) « 

• 1>M ■••/ *■« U 

AbF E 

C 9 

20 



CMP 

:|± l! n 


•Ml ■••• IMM M 

•• V / i } 2 

AFOO 

F0 

F7 



BEQ 

SUMT 6 


7 7 P$ O « 

AF 02 

H 2 

(_) 6> 


SUM T9 

LDX 

#6 


7 7 Qn ■■ 

J... .* B 

AF 04 

CA 



SUMT10 

i J E X 



mi ***** •» *• 

1 i ) ( I 

a«. ‘.m* *«' ‘m* li 

AF 05 

F 0 

"*»• .1 
1 



BEQ 

SUMT 12 

; MOVE DIGIT TO ACC 

23 1 0 2 

AF07 

B1 

7 7 : 



LDA 

(POINT A) if Y 


2320 s 

AF09 

C v 

7 n 

4m* mm^ 



CMP 

# ” - 5i 

; TEST FOR NEG 

2330 ;i 

A FOB 

F0 

1A 



BEQ 

SUMT 1 1 


2340: 

Hi- OD 

* / : **y 

*Xm* • 

OF 



AND 

#s0F r 


r**, "*v ,**. 

, | u 

J.M 'M. 1 U 

AF oF 

O ntr 

•-I 1 

w 

6 1 



MM ***** M 

O 1 H 

ACCUMl , X 


• III IIMI 1 •* 

47*60 S 

AF1 1 

0 CO 

0 0 




DEY 



^ “T “7 « 

•L t •-* »» 

r— i '***■ 

Hr 1 a 

30 

24 



BM 1 

SUMT 1 2 


•Ml ••*}• MM M 

4m. '«* W *M* W 

AF 1 4 


** •* 
4m- 4m* 



LDA 

(P0INTA) , Y 


2390s 

AF 1 6 

C9 

2D 



CMP 

±k n — ** 

IT 


2400: 

AF 1 8 

F0 

M MM 

OD 



B E Q 

SUMT 1 1 


2410s 

AF 1 A 

0A 




HSL 



7470 " 

4.M l 4mi *«* tt 

AF i B 

0A 




A :3* l 

hi -..j L.„ 



2430: 

AF 1 C 

0A 




ASL 



2440: 

AF 1 D 

0A 




ASL 



2450 s 

AF i E 

15 

6 1 



OR A 

ACCUMl , X 


2460 s 

AF 20 

95 

6 1 



ST A 

AC CUM 1 „ X 


2470 2 

AF22 

P.R 

‘mm 1 W 




npv 



2480s 

M ( ***** Mtl MM. 

r 1 1 4 **. v 

30 

4 7 * 1 * 

i ’J 1 



BM I 

SUMT 12 ; 

DONE 

2490 s 

a r- 

Hi* A O 

1 0 

DD 



BPL 

SUMT 10 s 

ALWAYS 

44 w X ^**‘ 1 * 

AF27 

E:. 6 

6 1 


SUMT 1 1 

INC 

ACCUMl ? 

SET SIGN NEG 

7 ' " 7* f 'i « 

*1**- W 4mi **.* U 

AF29 

H2 

O 7 

*M* I 



LDX 

#7 ; 

TEST FOR NEG ZERO 

2530 s 

AF2B 

M l'”*i 

H7 

■ • ** 

OO 



L D A 

#0 


2540s 

AF2D 

15 

6 1 


SUMTST 

ORA 

ACCUMl , X 


*•*• HM« •»•«> W f 

,1 !•••. M«. | J J| 

ji.. V li 

AF2F 

CA 




DEx 



7 *5 6 O *•• 

Hr v*U 

DO 

FB 



BNE 

SUMTST 


0 t r i » 

4 I. *— • i 'm 7 n 

J\ I T 

hit 

n 7 

00 



CMP 

#0 


7 H O f") ** 

H r ■ j« 4 

DO 

.**, /*n 

U ,«:i! 



BNE 

SUMT 1 2 


7790 » 

4m| ‘mm • M* W 

q j— *•* 

» * Ml * . 

6 1 



S i A 

ACCUMl s 

SET SIGN P0S 

7'A i u ** 

4m» »»•• 4. m O 

M ***** ***** MM 

Hr i*o 

h5 

A Q 

W 4 


SUMT 1 2 

LDA 

A CCLi M2 


7 A 7 (") «* 

AF 3h 

M*» J.M. 

. -*v 

*u« *• 

01 



AND 

# 1 


r**. ; ***f .*♦. 

*• Xm *. 1 r ti 

*j^, O ***** V u 

M |MH IMM MM 

Hi- - j* C 

C5 

6 1 



CMP 

ACCUMl ; 

TEST LIKE SIGNS 

2 6 4 O S 

■ ■ •••■• IIMI MNI 

Hr ob 

F0 

4 —x* 

1 O 



BEQ 

SUM ADD 


28 5 O s 

AF40 

i- i 2 

V 1 



j nv 

U.„ i-.- .• 1 

# 1 H 

SET FLAG FOR DID 

4 6 6 O S 

s\ r~ f\ 

Hr 4.-; 

86 

6 1 



bl X 

ACCUMl ; 

DO COMPLEMENT 

7 A *7 (“) 0 

*J— W / ’m t B 

M ***** M ** 

CA 




0 b X 



7A8n 13 

. 1 ... J M« l v-. 1 1 : 

AF45 

86 

L. Q 
O 7 



SIX 

ACCUM2 ; 

C L b A R S I b N A C U U M 2 

7 A Q f) « 

J.*.. O / V B 

r. r— .T **7 

Hr H / 

L 7 

00 



CMP 

#0 


2700 s 

A F 4 9 

F 0 

05 



B 1:::. Q 

SUMT 1 3 


77 1 0 - 

AF4B 

20 

H A 

AF 


J SR 

C0MPA2 


7 "7 7 f;, 

■tu. »” tilt* **** II 

AF4E 

F 0 

03 



BEQ 

SUM ADD 5 

hLWA t b 

2740: 

A F 5 0 

7 f) 

*1-*- V 

A 7 

AF 

fi 

SUMT 1 3 

J Sk 

COMP A 1 


2760 s 

** ***** ***** ***** 
Hr jj 

M. .**•*. 

H 2 

07 


SUM ADD 

LDX 

#7 s. 

ADD TO SUM 

27 70: 

Ah 55 

78 




OR T 

MM* III*. *** 

5 In 

10 I NT ERUPT 8 

r~. **“i ,“**! *“*. 
f ,* L. j i it 

X.. / O'-' 11 

AF5& 

F8 




SED 



7*70 A t= 
.L. / 7V S 

** ***** ***** *»M* 

Hr 5 / 

-i I*"'. 

X O 

-1- MM 




law* 



7 0 r= « 

rr er 0 
i-H 1 O 

Jb5 

A 1 

W 4. 


SUM A 1 

LDA 

ACCUMl H X 


,M« Mm j m. 

7 H ( J !! 

I. •««*• ***** ♦* 

nr , iFi 

—? cr 

/ . i 

69 



A D U 

ACCUM2. X 



****. ***• 

jL & uU. U a 

AFbC 

in:* 

•*7 . i 

/ •***, 



8 T A 

f*i L- L L I t jL if A 

vp”y”i « 

** t Mttt f«t** tittt 

Hh 5L 

CA 




DEX 


2840 ; 

**••* ***** »*♦*. 
Hr Dr 

Du 

r~* 
i / 



BNE 

SUM A 1 

2850 s 

ACL i 

r . i w **- 

E ^0 

0 B 



B C 6 

SUMO VC ; ? C SET-NO T NEED COMP 

2860 s 

AF 63 

•* ***** 
m • 1*** 

H -_J 

6 1 



L D A 

ACCOM 1 ; TEST FOR COMPLEMNT 

2 b 7 o « 

AF65 

F 0 

17 



jb b Q 

SUMDON : NO— THINGS OK 

r*. /*•% •••*. 

zBwO 2 

j*. i— • >• — t 

Hr o / 

7 f"‘i 

4**. *-• 

A A 

r»* 

Hh 

SUM A 2 

*** *M* # •♦** . 

J bh 

C0MPA2 

' Juu | n 
a'-O 7 U ii 

/s r~ / /*-. 

hi r O hi 

E b 

6 9 



I NC 

A CCU M2 ; SET SIGN TO NEG 

2900 2 

a c / r- 
Hr oL 

DO 

1 0 



BNE 

SUMDON ; ALWAYS 

7*970 “ 

J*»* * •* *1 

hF ij b. 

A 5 

6 1 


SUMO VC 

L« U H 

ACCOM 1 

*♦♦• *M* ***** ** 

' / V S l ! « 

a« ; ■«.’ •«' u 

A p 7 O 

DO 

uC 



BNE 

SUMDON 

2940: 

AF72 

D 8 




CLD 


w ‘-i ("i » 

** ***** ***** ***** 
AF / -o 

cr 

•.-J V.J 




CL I 

; INTER UF'TS OK NOW 

7 9 AO « 

•a ***** ***** it 

Hr /4 

20 

0B 

B 6 


JSR 

CLEARS 

v w 7 f) » 

Hr / / 

A 

} -l .»l. 

IF 



L„. D X 

#31 

9QR (“) “ 

il»t> • m* *4 B 

AF r 79 

**•• *• 
LU 

BC 

B9 


JSR 

MESSAG 

.•* ’"V ’—v* f 1 c 

AF7C 

18 




CLC 

; ’ C CLR IS OVR FLAG 

3000 s 

AF 7 D 

60 



i; 

RTS 


3020 2 

AF 7E 

18 



tl 

SUM DON 

CLC 

; INC RECORD COUNT 

3030 2 

AF7F 

A 9 

01 



LDA 

#1 STORED IN REV FORMAT 

3040 2 

AF 8 1 

/ s:r 
Od 

1 %J 



A I.) L, 

INTGER+1 

■,} i **“t : i = 

p" p. —r 

Hr oo 

m cr 
O -„J 

•it ****** 



ST A 

INTGER+1 

3060 s 

Ah 85 

A i““. 

Ht 

00 



LDA 

#0 

3070g 

Ah 8 7 

/ cr 
OJ 

14 



ADC 

INTGER 

Ou 8 U 2 

AF‘89 

O 

14 



b 1 H 

INTGER 

***r .**. .**- .**. 

.„•> U 7 U 2 

A F 8 B 

D 8 




CLD 

; CLEAR DECIMAL MODE 

3 i 00 2 

AF 8 C 

ks; Q 

****** ^t***^ 




““ j T 
L..“ Lm* a* 

; I NT ERUPTS OK NOW 

3 1 i 0 s 

AFSD 

18 




P 1 P 

; MOVE TO NEXT RECORD 

3 1 20 s 

AF 8 E 

A i"" 
MJ 

o ■ j* 



LDA 

PCRREC 

T 1 T O " 
I *U U „ 

Hr 7 y 

6 D 

01 

CF 


ADC 

RECLEN 

3 1 40 2 

AF93 

** A 

h i HI 




TAX 


3 i 50 2 

AF94 

ir.: - 

Hu 

. ji 



LDA 

PCRREC + 1 

•j* 1 £>U 2 

A F V 6 

6 D 

o y 

CF 


ADC 

RECLEN+ 1 

5 i 70 ■ 

Af- 99 

C5 

..■* j"** 



CMF* 

PLSREC+1 ; TEST FOR END OF FIL 

3 1 SO s 

hf vb 

90 

1 *M* 

05 



BCC 

SUMAGN 

3 1 90 2 

AF9D 

E4 

2D 



M*t MM • « 

< ¥ 
V**»* I / \ 

PL SR EC 

■,'X.UV a 

Ah VF 

9 ij 

0 1 



BCC 

SUMAGN 

O .U. X U 2 

H r H I 

60 



u 

K T S 

; ! C SET IS OK FLAG 

3230s 

AFA2 

r-. o 
HO 



*! 

BUM A ON 

***** a * * 

1 H Y 

5 ADD AGAIN 

3240: 

p*» /*- 

Hr R-.:< 

•Mi »■ 

8 A 




T X A 


” ' ,. S *“*, I } « 
’ I** ' >!••• * —• a 

AF A 4 

4C 

SC 

AE 

it 

JMP 

SUMLOP 

-"i* ,****. •*“.* 

/ U u 

p** a* 

A r A / 

A 9 

6 1 


m 

COMP A 1 

LDA 

#< ACCOM 1 

OiOU 2 

Ah H t 

7 o 




a BYT 

$20 ; B I T OPCODE 

t 

,* Wl J n 
•«.* . 1 ... / V si 

Ah A A 

A 9 

69 


COMP A 2 

L„ i.7 A 

#< ACCUM2 

”T "T 

i ) i 1 11 

■m.* %• II 

A FAC 

n 

HU 

uu 



LDY 

# ACCOM .1 

33 1 0 : 

Ah ML 

Q 7 

20 



ST A 

BUFF TF 

~T *T 7 t “i a 

AFB0 

84 

7 *{ 
♦ 1 **- ♦»* 



STY 

BUFPTR+ 1 

MtM M«<< IMH M f 

70 oU S 

•f ***** **♦* **»• 

A r b 2 

F 8 




d:i« h. L? 


~T *3 4 A a 
-.u ... 5 v tt 

AFB3 

*7 O 
O 




qp- 7 

****** •**•* *i* 

; NO INTERUPTS 

mmi **«•* •• 

*! • f * n 

U< O -_J U 2 

AFB4 

•jO 




SEC 


3 3 6 u 2 

AFB5 

A0 

07 



! nv 

#7 5 COMPLEMENT ACCOM 

3370 s 

Ah b / 

A 9 

o* o 

“7 -•/ 
/ 


C0MPL.P 

L D A 

#$99 

3380 2 

A h b *7 

FI 

70 

tlM. *«' 



SBC 

(BUFF'TR) , Y 

!•»»• Mill »m tt 

009u 2 

AFBB 

91 

•■** ** 
4’U 



o i H 

(BUFF'TR) , Y 

3400 2 

AFBD 

88 




...♦ H.M . . 

Ut T 


34 1 0 s 

Hr BE 

DO 

F 7 



BNE 

COMF'LP 

3420 2 

AFC0 

-_I o 




SEC 

p ADD ONE TO AC CUM 

3430 2 

AFC 1 

A 0 

07 



LDY 

J L ^ 

j*r 

+r / 

3440 s 

*• ***** •*♦* M*J* 

Hh L-O 

•a .*•«. 

AV 

00 


C 0 MPL 1 

LDA 

#0 

3450 s 

AF C5 

7 j. 

20 



h D C 

CBUFFTR) „ Y 

3460 2 

Ah L / 

9 1 

20 



STA 

(BUFPTR) , Y 

5470 s 

Ah UV 

:***! 

O u 




DEY 



3460 2 

AF 6 A 

DO 

a*** *-*■ 

F7 



BME 

COM PL 1 

34 90 2 

AF CC 

V*. f'j 

Dei 




CLD 


■jjUU 2 

HI- CD 

7 p 
w o 




CL I 

; I NT ERUPTS OK NOW 

Mill ••••• I H 

*. "**. '{ { 1 U 

AFCE 

60 




RTS 


*«*fr* »««t« »»*|« 4 ** 

•j>D 60 2 

Oh CF- 

A 2 

01 


SUMPRT 

LDX 

#1 

.:«54os 

AF D i 

A O 

jI*. / 



LDY 

#39 

T kt E-, r", ,, 

’m 1 U Vm tl 

AFD3 

I w 




CLC 


3560 2 

AFD4 

v O 

FO 

***“ 

{”* r* 


JSR 

PLOT 

357 O - 

•w. 1 V.n' / V R 

AF D / 

A 5 

••••• • 

/ 6 



LDA 

TEMP2 ; GET FIELD NUM 

T nr. Q A 

W LU ■-• B 

AFD9 

09 

o 



GRA 

#$80 

•wJ 1 W / V* w 

AFDB 

n 

H H 




TAX 


3600 2 

AF DC 

E::. 8 




I NX 


36 1 0 2 

A FDD 

v O 

•In* 

1 A 

•p ‘T 


JSR 

FLDFWD 

7 A 7-0 » 

■«.' W .1... V H 

AFE0 

A 9 

BO 



t r*. p. 

LDA 

#*B 0 

■jC'j'J 2 

AFE2 

95 

w w 

•••" i:.r 
/ U 



81 H 

TEMP ; CLEAR FLAG 

■ju4u 2 

AF E4 

A • — i 

hi x'.. 

0 1 



LDX 

# 1 

3650 u 

A F E 8 

p«*j 

D 3 



LDY 

COL NUM 

3660 2 

A P b H 

A 5 

6 9 



LDh 

ACCUM2 ; GET SIGN 

,M r / ™7 

.j* o / U 2 

AFEA 

F 0 

.** ***** 

O w' 



BEQ 

SUMPR2 

%*» O u 

AFEC 

A 9 

A T“, 

AD 



LDA 

#$AD ; REVERSE ’ - 

3690 2 

AF E(£ 

91 

n i 

i./ .n 



ST A 

CSCNLIN) , Y 

33 00 2 

Hr F U 

CB 




I NY 


37 1 0 2 

AFF i 

nr 
Jb vJ 

/ /•••* 
"V 


SUMP R 2 

LDA 

ACCUM2 , X 

Itltt »IM t •» 

•• / * f i u 

/ .i:.. :i 

AFF3 

43 




F* H A 


•m» **M* ***** ,** 

/ ’m* V R 

AFF 4 

4 A 




L SR 

; MAKE LEFT HALF ASCII 

3740 2 

AFF5 

4 A 




1 HR 


3750 2 

AFF 6 

4 A 




LSR 


3760 2 

** |*»*» -***- ***** 
H h r / 

4 A 




LSR 


»I»W ***** ***** •* 

•* 7 r - | i it 

•*„* / / V ii 

AFF 8 

09 

BO 



ORA 

#$B0 

“*V '"V 

6 / 80 2 

AFF A 

C5 

/ »-**J 



CMP 

TEMP ;SU PRESS LEADING ZEROS 

'"79n ■' 

* f , i • / *.,* jj 

AFFC 

FO 

05 



B E Q 

SUMPR3 

3800 2 

AFFE 

O 6 

"? nr 

7 



A 6 L 

TEMP ; SET PRT FLAG 

38 i 0 2 

’8000 

9 1 

D 1 



e> 1 H 

( SCNL IN), Y 

-n* ,**•*, *•***. , M . 
O a:.. -• a 

B00 2 

L- O 




I NY 


3830 2 

8003 

EO 

05 


SUMPR3 

CPX 

#5 

3840 2 

8005 

DO 

02 



BNE 

SUMP30 

3850 2 

BO 07 

0 6 

75 



ASL 

TEMP 

3860 2 

BO 09 

X. Q 
O 



BUMP30 

P 1™ A 


“TOTO * 

U -r B 

BOO A 

29 

OF 



AND 

# $■ 0 F 2 M A k Ei. R I G H 1 H A L F A 6 u I .1. 

~*r ,*♦**. -*•. 

■jSdU 2 

BOOC 

09 

BO 



ORA 

#$B0 

3890 2 

BOOE 

C5 

”*y r" 

/ -*.J 



CMP 

TEMP 

3900 2 

BO 1 0 

F 0 

! )5 

•* **** 



BEQ 

SUM PR 4 

39 i 0 2 

BO 1 2 

06 

/ vJ 



ASL 

TEMP ; SET PRT FLAG 

7,9 7*0 ■ 

BO 1 4 

91 

D 1 



ST A 

( SCNL I N ) , Y 

3930 2 

B 0 i 6 

C 8 




I NY 


3940 2 

BO i 7 

r” r\ 
L O 



SUMPR4 

I N X 


”T O 7 p 

■J< V %J D 2 

b O 1 8 

F < ,i 

06 



CPX 

#6 

j9ftU 2 

BO 1 A 

DO 

05 



BNE 

SUMPR2 

3970: 

BO .1. C 

A 9 

00 



L D (•••! 

#0 

3980 2 

BO IE 

85 

“T J nr 
/ ui 



ST A 

TEMP 

3990 2 

BO 20 

B5 

6 A 



LDA 

A C C U M 2 + 1 , X 5 T E 3 T F 0 R ’ . 0 0 0 0 

4000 2 

Tj i"i 7 

A*** *•** -Xl* <I*M 

FO 

0 4 



BEQ 

SUMPR5 

40 i 0 : 

BO 24 

E 6 

*“V 

7 h 



INC 

TEMP 

4020 2 

BO 2 6 

DO 

0 4 



BNE 

SUM PR: 6 ; ALWAYS 

4030 2 

b U xL o 

Pjcr 

O *. — * 

/ "j 

O "> 


SUMPR5 

LDA 

ACCOM 2 „ X 

4u40 2 

BO 2 A 

F o 

7 5 

Ju* w 



ibLQ 

SUMPDN ; DO NOT PRINT IT 

4050 2 

B02C 

A 9 

A Ei 


SUMPR 6 

LDA 

# % A E 2 REV ? * 

4060 : 

B02E 

9 1 

D1 



ST A 

(SCNL IN) , Y 

4070 2 

BU3U 

♦*** 

Q 



SUMPR7 

I NY 


4080 2 

BO 3 1 

B5 

69 



LDA 

AC CUM 2 h X 

409U 5 

BO 3 3 

48 




PH A 


4 1 00 2 

B034 

f\ 




LSR 


4 i i o 2 

BO 35 

4 A 




j CD 

W W i t 


4 1 20 : 

Buc .6 

*i r. 
.«.»» l*"-**' 




LSR 


/.I i 70 *= 

Rf)77 

r. *••* 




LSR 



4 i 40 : 

BUbb 

.. ...» 

0 9 

MH > M > 

i 1 

Am* 



uRA 

# 7 B U 

4 i 7 O ■ 

B 0 3 A 

91 

D 1 



ST A 

(SCNLIN) 

4 i 60 2 

ir« U L 

C 8 




I NY 


4 1 70 s 

BO 3D 

/ r**i 
Q H 

* *M* 




P L A 


4 i SO s 

B03E 

79 

4m. / 

OF 



AND 

#$0F 

4 1 90 s 

BO 40 

DO 

06 



BNE 

SUMP R 9 

4200s 

BO 4 2 

a nr 

{••1 

/ b 



LDA 

TEMP 

4210s 

9044 

FO 

0 B 



BEQ 

SUMPDN 

4?yO « 

B046 

A 9 

oo 



LDA 

#0 

4230 s 

BO 48 

♦* «*M 

(j 9 

B0 


SUMPR9 

ORA 

#'$B 0 

4240 s 

B04A 

91 

D 1 



STA 

(SCNLIN) 

4250 s 

B04C 

Eb 




I NX 


4260s 

Bo4D 

C 6 

“7 nr/ 

/ *mJ 



DFP 

M»* M.M MM* 

TEMP 

A V T f) « 

B04F 

1 0 

DF 



BPL 

SUMP R 7 

4280s 

BOS 1 

6 U 



SUMPDN 

RTS 







; ROUTINE TO 

DELETE Ri 

4 b 20 s 

Bud 2 

H 2 

06 


•« 

DELETE 

LDX 

#6 

4ooU s 

B054 

7 O 

BC 

B9 


J SR 

ntbbHb 

4b*+U s 

B0 5 7 

2 0 

M MM* 
* « •’ 

n / 

B5 

DEL. GET 

3 SR 

GETCHR 

4350 s 

B0 5 A 

48 




P H A 


4360 s 

805 B 

20 

0B 

B 6 


J bK 

CLEARS 

ZL / i I »> 

i / V It 

BOSE 

6 8 




PL A 


4380 s 

B05F 

f”. 

1 "7 

59 



CMP 

J-j. 11 Y 1 ! 

4390 s 

B0 6 1 

DO 

1 



BNE 

DEL DON 

4400 s 

BOtob 

7 O 

»***r ; 

/ 9 

BO 


t O 9* 
U w?r*-- 

CLOSUP 

4 4 1 0 s 

Bu 66 

r.:r 

H 

T 

•m.* ’"T 



LDA 

PCRREC+ 1 

4 4 2 U s 

BO 68 

C 5 

2E 



CMP 

PLSREC* 1 

4 4 3 - 0 s 

B O 6 A 

9 0 

O '7 



BCC 

DEL DON 

4440 s 

B06C 

. cr 
H *-..i 

"T 

.Ji *Jl 



L D R 

prpPPP 

4450s 

JbU£>fci 

i ,M *‘ nr 
W vJ 

2 D 



CMP 

PLSREC 

*4 4* cd s 

B070 

9 0 

03 



BCC 

DELDON 

44 70 s 

7 O / 2 

4C 

B 1 

BO 


JliP 

BAKWRD 

4 4 SO s 

B075 

6U 



DEL DON 

RTS 


4500 s 

MM m mm. a 

Bo /6 

A 5 

Mfff •**■»» 

b b 


It 

CL 0 SUP 

L D A 

PCRREC 

45 1 0 s 

>Ma M >MM I.M 

bO/b 

4; 4 

.ji 4 



LDY 

PCRREC* 1 

AR? M “ 

W 4m« *h* rt 

B0 7 A 

85 



CLOSPi 

STA 

PC I NT A 

4530 s 

B07C 

S 4 




STY 

F'O I NTA+ 1 

4540 s 

BO / & 

IS 




CLC 


4550 s 

B07F 

A 5 

b b 



L D A 

PCRREC 

4560 s 

BOS i 

6 D 

01 

M-« JM** 

L# r 


R D L.- 

RECLEN 

4570 s 

BOS 4 

85 

24 



i 44 * 4 . 44 p A 

O i M 

PO I N ! B 

4580 s 

B0 8 6 

f\ V".' 

M 

-*i* /I 
.Ji *•{’ 



LDA 

PCRREC + 1 

4 5 9 0 s 

BOSS 

6 D 

02 

***» ***** 
U i 


A v*\ r" 

RECLEN +• 1 

4600 s 

B0 SB 

85 

‘**"j Cm* 
•il.. •„ J 



f”. "r ft 

CD { R 

PO I NT EH- 1 

46 1 0 s 

B08D 

AO 

00 



LDY 

#0 

H- o 2 U 2 

B08F 

A 5 

cr 

•I... »m 


CLOSLP 

LDA 

POINTER! 

4630 s 

B09 1 

C5 

2 E 



CMP 

F'LSRLCR 1 

4640 s 

B0 93 

90 

OF 



BCC 

CLOSE 1 

4650 s 

B095 

A. nr 
RvJ 

24 



LDA 

PO I NTB 

4660 s 

B0 97 

r“ nr 
L** w 

'**;* 

.4* A./ 



CMP 

PI cpFf- 

4670 s 

B V 9 V 

90 

09 



BCC 

CLOSE 1 

46 So s 

B09B 

A 5 

22 



LDA 

POINT A 

4 6 9 0 s 

B09D 

Jm Jj 

.* 



LDY 

POINTA+1 

4700 s 

B09F 

Q r -”.' 

2 D 



♦***• *♦{** **. 
b i R 

PLSREC 

47 1 0 E 

BOA 1 

84 

•****: (“** 
.* I 444 

•W Mr*. 



STY 

PLSREC+l 

4720 s 

BO Hb 

60 




RTS 


4730 s 

B o A 4 

B 1 

2 4 


CLOSE 1 

LDA 

(POINTS) 

4740 s 

BoA 6 

91 

.•"•j /••■j 



STA 

(POINT A) 

4750 s 

BOAS 

20 

DC 

B 8 


J SR 

I NCPTA 

4760s 

BOAB 

7 O 

.Im- *m* 

D5 

BS 


J SR 

I NCFTB 

4770 s 

BOAE 

4C 

QF 

BO 


J MR 

CLOSLP 

4790 ‘j 

ROB 1 

s:r 
. .! 

..... m. 

b 2 


BAKWRD 

LDA 

PfaGRb-CR 1 


5 TYPE ■ Y’ TO... 


s MOVE AMD RETURN 


; CLOSE UP HOLE 


s GO AGAIN 


•mh >n*« m* «*ni m*. •♦*»* M** •*»*• *4- ■ H« 

2 ' b. b ! b h. b r .1. L i::: 


4‘dOO li 

Bob 3 

C 5 

***r /t 
. J* '•*}• 


UMF 

PCRREC+ 1 


48 1 0 ; 

BOBS 

90 

OB 


BCC 

BAKW 1 


4820 s 

BOB 7 

Hj 

**;r a 

* 2 * x 


L D A 

F'BGREC 


4830 2 

B0B9 

r 

w w/ 



CMP 

PCRREC 


4840; 

B0BB 

7*, 

•7 ij 

Ob 


BCC 

BAKW 1 


4850; 

B0BD 

A 2 

0 2 


L.DX 

#2 

Y M . r** *••**, «*••• r* f n* j F‘ 

5 b b b U r r i L. 

4860 2 

B0BF 

4C 

7**. .**n. 

B C 

Tj r> 
fc> 7 

JMF 

M E b b A G 

p PRINT & RETURN 

4880 2 

B0C2 

.. ;r 

•jd 


BAKW 1 

otL 



4890; 

B0C3 

a sr 

A 

• j’ •-* 


L D A 

PCRREC 


4900 2 

B0C5 

ED 

01 

C F 

8 B U 

PFCl FN 


49 1 0 s 

BOG 8 

85 

*^t* 

• 2 * - 2 * 


b i H 

PCRREC 


4920: 

BOCA 

A 5 



LDA 

P C F'\ E L- •+* 1 


4930 2 

BOCC 

ED 

() V 

CF 

SBC 

REi CLEN+ 1 


4940 2 

BOCF 

8 5 

3 4 


ST A 

l- ,: C R hi L U + 1 


4950 2 

BOD 1 

60 


II 

RTS 



4970 2 

BOD 2 

A 5 

/ / 

q 

FORWRD 

LDA 

TEIMF‘3 

; DISPLAYED 

4 9 8 V 2 

BOD 4 

FO 

2 8 


BE a 

FORW 2 


4 9 9 U 2 

BOD 6 

18 



CLC 



5000 2 

BOD 7 

tsr 

♦ 2 * v* 


LDA 

PCRREC 


50 1 0 2 

BOD 9 

6 D 

01 

CF 

ADC 

RE CLEW 


so - 

w v V K 

BO DC 

C) cr 
O vJ 

s::r 
/ -..J 


O I H 

TEMP 


5030 2 

BODE 

A ctr 

H%J 

“*!• .*1 
. j* 


LDA 

PCRREC+ 1 


5040 2 

BOEO 

6 D 

02 

CF 

A D U 

RECLEN+ 1 


5050 " 

B0E3 

8 5 

7 6 


ST A 

TEMP 2 


5060 2 

B0E5 

C5 

2 E 


CMF' 

PLSREC+ 1 


5U / U 2 

B0E7 

90 

OD 


BCC 

FORW 1 


5080 2 

B0E9 

DO 

06 


B N E 

FOR WO 


5090: 

BOEB 

A 5 

-•? c;* 
/ -..J 


LDA 

TEMP 


5 1 00 2 

BOED 

C5 

* 

2D 


CMP 

F'LSREC 


5 1 1 0 : 

BOEF 

7 O 

05 


BCC 

FORW 1 


5 1 vO « 

BoF 1 

A 2 

03 

FOR WO 

LDX 

#3 

; END OF FILE 

5130: 

B0F3 

4C 

BC 

B9 

3 IMP 

MESS AG 

; PRINT & RETURN 

5 1 50 " 

BOF 6 

A 5 

nf>* |MM 

/ D 

FORW 1 

LDA 

TEMP 

; MOVE POINTER 

5160: 

BOF 8 

85 

«*«!« 

•/.:> 


•Ml •**•• H 

b i A 

PCRREC 


5 1 70 2 

BO FA 

A 5 

7 6 


LDA 

TEMP 2 


5 1 80 2 

BOFC 

dj 

34 


.... ..... .... 

I A 

PCRREC + 1 


5 1 90 : 

BOFE 


O 6 

Bi FORW 2 

JSR 

D I SPEC 


“i V f“) ft « 

B 1 0 1 

A 9 

0 1 


LDA 

#1 


52 1 0 2 

B103 

r" s:r 
O •....* 

/ / 


ST A 

TEMP 3 

; RECORD D I SPLAYED 

CT **Tx “ 7 : „ 

w «C. X. •«* a 

BIOS 

" a* - *-. 

oU 



RTS 







■ Diqp 

3 U J. W I 

LAY RE 

:CORD POINTED TO BY 





s — F'UR 

•fii •<••• •••« 

K hi L- 



w / -J a 

B 1 06 

A 

M -_J 

• *♦*{* 
.j, 

D I SPEC 

LDA 

PCRREC 

; DISPLAY RECORD 

50 SO r 

B i 08 

A 4 

•“t* .*t 

‘2* *T 


LDY 

PCRREC- + 1 


« 

w .* *7 « 

B 1 OA 

Q r~. 
O vJ 

"" fy 


STA 

PG I NT A 


5500 11 

B 1 OC 

8 4 

•j*- *»* * 


STY 

PO I NT Ah- 1 


T 1 a 

■u.j .i. a 

B 1 OE 

20 

DC 

B 8 

JSR 

I NCF'T A 

; SKIP FIRST BYTE 

• •••• HM H t 

t •*. .•* i : K 

W •«.* U 

B1 1 1 

A 9 

5 O 


LDA 

#80 

; < SCREEN +80 

5330 2 

B I i 3 

A O 

C 8 


i dy 

Iwm A.* i 

# > SCREEN 

1 

i 

5340: 

B 1 1 5 

O nr 

W W 

24 


STA 

PO I NTB 


5-j>5o 2 

B I 1 7 

84 

X** wi 


STY 

PO I NTB - + 1 


5360 2 

B 1 1 9 

AO 

00 


LDY 

#0 


a 

•~J / %.* a 

B 1 1 B 

B 1 

24 

D I SR 1 

L D A 

( PO I NTB ) 

, Y ; SCREEN 

5380 2 

B11D 

1 0 

r*» p 


BPL. 

DISR 2 


5390 2 

BUF 

B 1 

27 


LDA 

(POINT A) 

, Y ; DATA 

5400 s 

B 1 2 1 

30 

1 A 


BM I 

D I SDN 

; $80 IS END 

54 1 0 2 

B 1 23 

F o 

j. 8 


BEG 

D I SDN 

; ZERO IS END ALSO 

54*70 * 

Y”s •; ■****■ t:r 

b I jiL vJ 

al 7 

♦♦•j? }»**» 

r 


AND 

#*3F 


5430 2 

B127 

09 

SO 


ORA 

#$80 


5440 2 

B i 29 

»****. •» 
T I 

24 


S 1 A 

(POINTB) 

, Y ; SCREEN 


5460 s 

UU ♦ *u> MU« 

b i 3 hi 

UU U 

' a*’ i \ 

d5 

b 3 

«•#* ***• *•*• •*•* 

! j s F 

444* a* ***** a *i *l**i 

H* 44*4 #4 — 

i { r * 
■j oK 

I NCF'TB 



5470 * 

P i T 1 
.O j. 1 

KT 

H _.i 

nn* 



LDA 

F‘OINTB+1 



5430s 

b X i> -i< 

(’”‘1 
i . 7 

UU 

Cb 



CMP 

mcB 



5490s 

B1 35 

U»* a» 

9 ( j 

E 4 



BCC 

D I SR i 



5500 s 

J «*J* U*^t 

b i -i« / 

A cr 
H *_J 

24 



LDA 

POINTS 



55 1 0 s 

8139 

C9 

Q "T 

0 



CMP 

# 1 5 1 

tt 

END OF VALID SC 

M"* t"" -* m . 

.■' ! ! " 
w w a.*, v it 

B 1 3B 

90 

•44* #4*4* 

DE 



•*»* *#4* ***• 

H ' 

Xu* *•#•* w 

D I SR 1 



|M4t MU* M 

s 

B 1 3D 

60 



D I SDN 

**** ***** ***a 

K ! fa 









M 

; ROUTINE TO 

STORE DATA ENTERED 

***** -*••* H 

*«*•- /| t XX 

W W / u’ R 

*1 ***v r— 

b 1 el 

18 



ff 

ST CD AT 

lu/ L ^**» 


:« 

H 

TEST AVAIL RAM 

5580 s 

b i J«r 

A c:: * 

i.**: : 

t 1 W 

2D 



L. 0 hi 

F'LSREC 



5590 s 

8141 

6D 

01 

n p* 

w f 


ADC 

RECLEN 



5600 s 

B 1 44 

***** 
o 0 J 

/ b 



~r a 
C> 1 hi 

TEMP 



56 1 0 s 

B 1 4 6 

»• *4*4* 

A 5 

44** # UU4 

.* p 

a... U.a. 



LDA 

FI Q RFC 4-1 



5620 s 

B i 48 

6D 

.**. -*•**. 

F 


A L.- 1 L 

RECLEN + 1 



•w." w? •».* *-.* » 

B 1 4B 

C5 

33 



CMP 

T OPR AM 4- 1 



5640 s 

B 1 40 

90 

10 



BCC 

STORE 1 



***u 4 •*••• u 

DdjU S 

UU ,1 H *»u* 

fa 1 4F" 

A 

hi 

7 5 



LDA 

TEMP 



5660 s 

P *1 i 

JD J. ■— 1 1 

<““• cr 
l...- -..j 

»*T ‘"V 
/ 



CMP 

T OPR AM 



5 b / V S 

B 1 53 

9 0 

A 

H 



p r*- p 

STORE 1 



5680 s 

B 1 55 

A •*“*« 
hi .il 

04 



L D X 

#4 


5 ? OUT OF MEMOF 

p” ,£•, W Q « 

B 1 57 

20 

BC 

B9 


J bh 

MESS AG 



5 “7 O i "" t “ 

B15A 

68 




PLA 


tx 

SCRAP RTS 

57 1 0 s 

B15B 

68 




FLA 




5720 s 

B15C 

4C 

FI 

A 


JMP 

OPT INI 



5740 s 

b 1 Or 

A 9 

00 


j# 

STORE i 

LDA 

#0 



^ a 

V» ! / II 

B i 6 1 

85 

FD 



STA 

CHANGE 


; NOT CHANGE 

*U»I •*U| t H t 

* ; ; > r 

p / / ^ «i 

8163 

A 5 

p n 

4*-* *•••* 



LDA 

P 1 c- w inr r 

I Lm» w 5 \ i.... L.' 


; SET POINTERS 

5780 s 

B i 6 b 

f’uj* 

4u* ltu> 



LDY 

PL SR EC -i- 1 



5790 s 

8167 

ncr 
O P 

*44^4 

•3 /*! 



STA 

PCRREC 



5 3 0 0 s 

B 1 69 

34 

>44)4 » 



STY 

PCRREC+ 1 



58 1 0 s 

B 1 6B 

M uua 

•" » UU 

hi-— } 

33 


CHGDAT 

LDA 

PCRREC 



O ““ j~i is 
X.. • n 

B 1 6 D 

A 4 

34 



LDY 

PCRREC 4- 1 



5330 s 

B16F 

J=T 
O w 

”7: ^ 7 . 

a*** 4 w* 



.•*“. **r h* 

i H 

PO I NT A 



5840s 

8171 

84 

_4444 ***$» 

M*1 i' 



fa I Y 

PO I NT A 4- 1 



5 b 50 s 

W * / . % f 

A0 

00 



LDY 

#0 



5860 s 

v"j -j "*? »srr 

b x / vj 

9 0 




•UU * 4 4* 

T Y H 




58 / O s 

8176 

r~i -i 
7 1 

*1*4* -*»u 



STA 

( PO I NT A ) 


Y ; EXTRA BYTE 

£3 W 1 "*! « 

W W / 'u* R 

p i 70 

Ah' a* * LJ 

20 

DC 

B 8 


3 SR 

INCF'TA 



HU* UU U u 

W I If 1 « 

W / *~* *-* 11 

iui a iuh ini 

B 1 7 B 

E6 

■au ****** 



I NC 

BL I KSW 


; BLINK OFF 

59 1 0 s 

B 1 7D 

A Q 

H 7 

***** *4 



LDA 

#80 


”, Y S C R E „ p N 4- 8 0 

5920 s 

3 i 7F 

H O 

•*** 4*4* 

U 0 



LDY 

# >S GREEN 



ml» «ut UU* U 

. t -*7 . \ l } " 

WH • Ml* *• R 

p i o i 

L< i o X 

/•“'i n:: 1 

O -..J 

,.*l 

** A*»* 

a... 1 



S 1 hi 

PO I NTS 



5940 s 

b 1 o -p 

84 

-••*;. s::r 
<i!» -~J 



STY 

F'O I NTB+ 1 



IIM MMf M _ 

•*«. * * »•«■, >' ; H 

•p ;■ ■. j U S 

7”j f f~, *sr 

b X O P 

A0 

00 



LDY 

#0 



5960 s 

B 1 87 

8 4 

F B 



rn M r* \ .* 

■P s Y 

TEMPFL 


FIELD NUMBER 

5970 s 

B 189 

H *444 

A 9 

i £7 
4. 



LDA 

#21 



5930 s 

B18B 

:***i ssr 
O vJ 

l“*‘i /**•, 

O 

•H* *4* 



•p T H 

R OWC NT 



59vU s 

B 1 3D 

h-i 9 

28 


UHbU 

L... D h 

#40 



6000 s 

B 1 8F 

85 

81 



p r a 

CQLCNT 



60 1 0 s 

B 1 9 1 

Bi 

A 

a* A.{. 
ala*. 1 


C H G 1 

LDA 

( F'O I NT B) 


Y 

6 O p O S 

b 1 7 -i* 

30 

OF 



BMI 

CHG4 



6030 s 

B 1 95 

v o 

4***4 *U* 

D5 

B8 


♦*• /***« {*•• 
u br; 

I NCF'TB 



6040 s 

B 1 v b 

U 6 

” M i -j 

0 1 



DEC 

CULCN i 



6050 s 

B19A 

A 5 

8 1 


CHG2 

L D A 

CQLCNT 



6060 

B 1 9C 

DO 

**•*» 4-4f* 

F -i» 



BNE 

C H G 1 



dU 7 O s 

B i 9E 

C c'::* 

80 



DEC 

ROWCNT 



6080 s 

B 1 A O 

DO 

EB 



BNE 

CHGO 



Af'sQO " 

B 1 A 2 

F0 

.1 .****. 

hL* 



B E::. Q 

CHG92 


; ALWAYS 

A 1 1 O 

f-i 1 HH XI 

A A 

F ri 


CHG4 

LDX 

7 p: |vj p p ] 


5 GET FIELD NUM 


A 1 90 

w .t. *<■* r 

B 1 A 6 

E6 

FB 



I N C 

TEHF’FL 

z. i t n .. 

BIAS 

BD 

.**, ***** 
i i J 

CF 


L DA 

FLDTBL, X ; GET TYPE & LEN 

6 1 4 U S 

BIAS 

4 8 




PH A 


6 1 50 s 

B 1 AC 

VQ 

.Imi 

.j; p 



AND 

#*3F 

6 1 60 1! 

fc' 1 At 

A A 




TAX 

; J X IS LENGTH 

6 1 7 0 s 

B 1 AF 

.*.*4 

W W 




PL A 


6 i 8 u « 

BIBO 

48 




PH A 


A 1 Q ("i ** 

B 1 B 1 

10 

OE 



BPL 

CHG4 1 

6200 s 

B1B3 

2 9 

40 



AND 

#1140 ; TEST BIT 6 

6210s 

B 1 B5 

DO 

OA 



BNE 

CHG41 

A v (“) •« 

mt fl**f 4»w *• B 

B1B7 

20 

yd 

B2 


J SR 

NUMER s DO NUMERIC INPUT 

CD a;:. o O S 

B i BA 

* 

CD CD 




PL A 

; NO EFFECT OF ’ C 

6240 s 

E> 1 BB 

90 

i y 



BCC 

CHG6 

62 5u s 

B 1 BD 

/\ O 

hi j:„ 

OD 



LDX 

#13 s INVALID NUMBER 

6260 s 

B 1 BF 

DO 

4 



BNE 

CHGERR s ALWAYS 

6270: 

B1C1 

vr“) 

ji»* »* 

v r ;:> 

4»> •!••• 

B a::! 

CHG41 

JSR 

CHACTR s DO INPUT 

6 a 6 U u 

B1C4 

68 




PL A 

; NO EFFECT ON ’ C 

6290 s 

B1C5 

10 

08 



BPL 

DH 66 

67SOO s 

B1C7 

46 

7 o 



LSR 

TEMP 2 ; TEST IF INPUT HAD CHAR 

Au I ! ! Jl 

W-~* i O 

B1C9 

BO 

04 



b U c.:> 

CHG 6 s YES 

6320 s 

B1CB 

A 2 

f"7 !“"• 
‘.._r 



LDX 

#12 3 REQUIRED 

6330 s 

B 1 CD 

DO 

n*y * 

•jd 



BNE 

CHGERR 3 ALWAYS 

6o<5u s 

R t pp 

Jur 4. W 1 

84 

“7 

/ w 


•• 

CHG 6 

STY 

TEMP ; SAVE LENGTH 

6360 s 

BID! 

A ‘-J 

00 



LDY 

#0 

t *** V M, f 

£d:d / U S 

B 1 D3 

B 1 

A 4 


C H G 6 1 

LDA 

< POINTS) Y 

6380 s 

B 1 D5 

r*j 

m* **Jr 

3F 



AND 

#$3F 

6390 s 

B1D7 

C9 

20 



CMP 

#$20 

6400 s 

B 1 09 

BO 

02 



BC 8 

CHG7 

64 1 0 s 

B 1 DB 

09 

40 



UR A 

#$40 

6420 s 

B 1 DO 

91 



CHG7 

ST A 

(POINT A) , Y 

t>4 -j-O s 

B 1 OF 

20 

D5 

B 8 


JSR 

INCPTB 

6440 s 

p i p 

V«i»* 4- Imu itu. 

20 

DC 

B 8 


J bR 

I NCPTA 

6450 s 

B 1 E5 

■it* ♦ 

L- o 

81 



DEC 

COLCNT 

6460 s 

B1E7 

FO 

04 



BtQ 

CH 68 3 END OF LINE 

6470 s 

B 1 E 9 

C 6 

75 



DEC 

•w U* w 

TEMP 

6480 s 

B 1 E B 

10 

!a Cd 



BPL 

CHG6 1 

6490 s 

B 1 ED 

4C 

9A 

p i 

Am 4» 

CHG 8 

|| 

JMP 

C H G 2 

65 i 0 s 

B 1 FO 

p t**** 

hD 

FD 


fi 

CHG92 

L D h 

CHANGE 3 IS IT CHANGE 

6 5 2 O s 

B 1 F 2 

DO 

U H 



BNE 

C H G DON ; Y E S •••• S K I P E N D 6 1 U F F 

GJOU 3 

B 1 F4 

Q 1 

J 4* 

2 2 



M«* *MM 1^ 

b I hi 

< P 0 1 N T A ) , Y ; N 0 - Z E R 0 A T E N D 

6540 s 

B1F6 

/\ KT 

H *.j 




LDA 

POINT A ; SET IT 

6550 s 

B 1 F 8 


"”i "7* 
j:.. •.„> 



LDY 

P0INTA+1 

6560 s 

B X F A 

8 5 

2 D 



ST A 

PLSREU 

o5 7 U s 

B 1 FC 

04 

2E 



STY 

F’LSREC+1 

6580 s 

B i FE 

hi A 

A 

«1m- W 


CHGD0N 

L D X 

#38 5 ’ RECORD STOR. . . 

. yy ft— - 

5J7U S 

B 200 

f ) 

Jm *-*’ 

BC 

B9 


J oh. 

MESSAG 

6600 s 

h o y 

1.M* >Im> Ml* 

1 o 




CLC 


66 1 O S 

B204 

6 0 



U 

RTS 


/ .* ~n* .*», 

oto-iU s 

B205 

hi w 

80 


? 

CHGERR 

LDA 

ROWCNT 

6640 s 

B207 

»•—. cr 
O •„< 

lUM IIIM 

7 5 



..... MM. .. 

CD 1 H 

TEMP 

*-* A j " "! “ 
W O wi V a 

B209 

H a 

81 



LDA 

COLCNT 

/... mm A* i } n 
W rn. W V V 

B20B 

8 5 

— y / 

/ D 

• *M4 



CD 1 A 

TEMP 2 

b 6 / O s 

B 2 O D 

20 

BC 

B9 


J bR 

MESSAG 

6680 s 

B 2 1 0 

38 




S E C 


66 90 s 

B21 1 

a r** t 

H 7 

17 



i pa 

i*«M * i 

j.j. n t 
TT 4:1. * J 1 

6700s 

Jr* a I 

rr 

i.... '..J 

~7 cr 
/ \J 



CD p p 

TEMP 

6 7 1 0 : 

b a I w 

A A 




TAX 


• IttM «M4 M 

6 / 6. O S 

B2 1 6 

•*r o 
•A O 




SEC 


6730 s 

o O 1 ~7 
\.. 1 A. J. / 

A 9 

28 



LE?A 

#40 

67 40 s 

•in mi 1 i*ii 

B'Ll V 

E5 

7 6 



hBC 

’mm 1 X.. »M4* 

TEMP 2 

O / JV a 

B21B 

AS 




/*. ** ** 
{ H V 


6*7 60 s 

B21C 

18 




CLC 



/ *"T H 
/•** / ! ? « 
w / W v « 

p vTO 

38 




CD p 

***** ***** ^»M* 

2 h LAG ERROR 

6 / 90 s 

B221 

•6 O 




DTC 

I \ 1 W 


6 CD I V 2 

p T T T 

.Ml * *ltM 4.M 4 mi 

A i**”i 

M V 

00 


H 

CHACTR 

LDA 

#0 

68.60 2 

B224 

85 

Mftj ♦ 

/ A*. 
.* W 



STA 

KM. ***** . | *•*• •**• 

i [■■■ M p 

I t***« 1 it 4 m* 

6830 s 

B A A 6 

B 1 

•** Ai 

.(m. T 


CHACl 

E D A 

< POINTS) , Y 

6840 2 

B22S 

10 

0D 



BPL 

CHhK 1 

A. J 11 

W W W V u 

B22A 

. *7 

4*** ** 

A0 



CMP 

# 1 60 

6860 s 

P T v r*- 

J.M* 4... 4m. mu* 

F 0 

*._) 4* 



BEQ 

CHRNXT 

6870 s 

B 16 A l:::. 

A 9 

FF 



l..„ D H 

#$FF 

6880 s 

MM *♦*♦ ‘M^. t »», 

b .6 -.0 l -J 

rj n:* 
CDU 

f ****** 



■:dT A 

TEMP 2 

60 VO 2 

Jb -w. -l* oa. 

C8 



CHRNXT 

I NY 


6900 s 

«.. | .... .... . »Mf. 

■V.. 5 uL ■«.’ 

,**♦*. r. 

C H 




D E X 


6910 s 

nn? a 

bw6 4 

DO 

F0 



BNE 

CHAC 1 

6 9 2: 0 2 

tz> t a 
A *•„ o 

88 




DEY 


6930 s 

r~j “T "T 

60 



CHARTS 

RTS 


A w “ i“i 

***** •' »*** •* n 

‘Q ■“ “T Q 
O >4 v* CD 

B 1 

24 


n 

NUMER 

LDA 

(POINTB) , Y 

6960 2 

B A-6H 

10 

•1 r~ t 

i w 
*1* / 



BPL 

NUMRTS 

6 9 7 0 s 

p "T p 

MM * 4 Ml f ... '.Ml 1 

L- 9 

A ! -_- s 



CMP 

# 1 60 

6VbO 2 

P “7 T p‘ 

p o 

10 



BEQ 

NLJMOK 

O T '7 O 2 

B240 

C9 

AD 



CMP 

#^AD ; ? - 

/ OOO 2 

B242 

F 0 

OC 



BEQ 

NLJMOK 

TO 1 n «■ 

B244 

C9 

AE 



CMP 

#$AE 2 ? ,, 

7020s 

B246 

F0 

OB 



BEQ 

NUMOK 

“•r —r 

/ 0-60 2 

P; T 4. R 

C9 

B0 



CMP 

#$B0 2 ? 0 

7040: 

B24A 

9 0 

0 B 



BCC 

NUMB AD 

7050 s 

B24C 

C9 

r*j /*. 

DH 



CMP 

#$BA s 9+1 

7060s 

B24E 

B0 

07 



r*x r* r**- 
-*.. { **.. 

A** S W 

NUMB AD 

7070 • 

B250 

C8 



MUM OK 

I NY 


7080 s 

B251 

CA 




DEX 


7090 s 

LJ - 7* *— 1 * 

***• * 4m> 'mm at**. 

DO 

E4 



BNE 

NUMER 

7 1 00 s 

B254 

r~*. p. 

DO 




Ufc. Y 


7110 2 

I... 3 ' ,. 3 I ~. I — . 

.... ' 4w. ***** V**»* 

1 O 



NUMRTS 

CLC 


7 1 20 s 

B256 

60 




r* 1 

1 \ 5 •*..* 


7 1 40 s 

B257 

•i’> 6 



NUMB AD 

•ddLU 


/ X *«-■ a 

PP’TQ 

MM* 4*** ****** ****** 

60 




RTS 







fl 

; R0U 

TINE TO 

ENTER DATA INTO 






2 DEF r 

I NED FIE 

:lds 

**** .****, .**. .**. 

/ .-•£ ll 1 » 

/ *W V* II 

8259 

al 

1 1 


ENT DAT 

L D X 

# 1 7 

T v 1 O ■. 

s 4m. 4. v - ; tt 

B25B 

20 

BC 

B9 


J SR 

M FI 8 A G 

T v 20 2 

/ .b*. 4 m. '•** IX 

»•«» •••• ..... . •»*. 

b A A* b 

,•6 T 

t™l 

01 


ENT A 1 

LDX 

#1 

V ■***? "7" i j t» 

7 4^.*— * V a 

B260 

A0 

27 



LDY 

#39 

T V ,:X 0 " 

/ 4m. “ V ; || 

B A 6 A 

18 




rt r 

11*. 1***- ^M» 


M.M m. »***. n 

/ .1**. w* 1 u 

••** /***. ; *M*f 

b 6 -6 

r? o 

a..* •«• 

F0 

r“* r“ 

j.«* j... 


J SR 

PLOT 

/ .6 CD O 2 

B266 

A 2 

0 1 



L D X 

#i 

„ 

.* 4.M / *«* tl 

B 2 6 8 

20 

1 Pi 

B3 

ENTD1 

JSR 

fldfwd 

T v A j’ ) 

; 4m. W ’** ; ii 

b^CDb 

4C 

"7 p. 
/ 

B2 


JMP 

ENTD3 

**T .**, 

/ i )» 

1 •*•*• V R 

B26E 

P.5 

FF 


ENTD2 

L D P 

M S > ”> F" i 

73 1 0 s 

mM t***^ ***** M, 

a.. 3 j:.. / 

FO 

07 



BEQ 

ENTD3 

T T T O !> 

7**1 -***» ‘**T ^ 

***** 4... »* 4m. 

TO 

.Im. m* 

0B 

B6 


JSR 

CLEARS 

P "'l' *. f \ O 
/ w *...« 'J w 

tr= *—« *7 

K ♦* -• f 

A O 
H 7 

00 



i D A 

#0 

7340 s 

B277 

D -v 

r* F 



.«»♦ ***** ♦. 
•DD i H 

ME3GFL 

*-*V *“V t*“* 

7 si i a 

/ •*— • W •-* n 

B279 

TO 

Dm 

B3 

ENTD3 

JSR 

RCBRCL 

..... »♦**♦ * M 

/ -6 6 O 2 

b 2 7 C 

A j““ 

M V 

OU 



LDA 

#0 

7370 s 

PT7F 

85 

w L/ 



T A 

BLIKSW s BLINK ON 

7 too « 

** 'm* J W *m' If 

B A 8 0 

20 
a*** *m* 

*• H.M 

A / 

r*i cr 
b mJ 

ENTGET 

JSR 

G ETC HR 

’ ,N » "*t* .•*^ 4 . 

7 -6 "7 O 2 

B283 

j . :, *7 

85 



CMP 

#PF 1 ; < F 1 > 

7400 s 

B2S5 

DO 

05 



BNE 

ENTG 1 

7410: 

7 

JU. 1 4m. w / 

20 

/ u 

B5 


J SR 

BLKOFF 

/ * 3 - * : ! 1 * 

** 1 4m. ’ c 

B 2 8 A 

1 CD 




CLC 

2 C LEA H F L A b “• S A V E 

"»7 ,n **n* .**. 

/ 4 -60 2 

B2SB 

6 O 




RTS 



tvMp m « 

/ 44u ii 

I*** »M* MM »«M 

O * i O i * 

to 3 . 0 U 

♦M* MM 

U 7 

*•** •••• 
dd 


ENTG 1 

CMP 

JJ !*••» * M 7 

• MM* ***** • 

« •!* }••• / 2* 
w •• 1 

/ 4du s 

Y**. f*** t , m ‘*j t***’ 

to 3 0 !:::. 

DO 

05 



BNE 

ENT 82 


/ ii> •“••• i * » 

/ 7 ’m.* u 

**♦* M* •»** *4 

to 3! VO 

20 

7C 

V**: 122!’ 

b 3 


J SR 

BLKOFF 


/ 4 7 u 2 

to* 3 V 0 

38 




P* j” 


; SET FLAG -NO SAVE 

7480 s 

B294 

60 




RTS 



7490; 

B295 

r“ q 

20 


ENT 82 

CMP 

#$•20 


7500 ii 

to 3 *7 / 

9 0 

IF 



B u u 

p K ! T T Q T 


/ 5 I O s 

r*. *"**, /"*; p. 
K *• -v «v 
a m* a**. / .* 

C9 

60 



CNF* 

# '$ t:< V 


7 5 2 r> ■ 

/ W .1— U 

B29B 

B0 

IB 



BCB 

ENTTST 


UHf f*««* .**f* ( M 

7 5-30 s 

B29D 

E::. 6 

C7 



I NC 

REvFLG 


7540 s 

B29F 

20 
*u V 

•** A*i 
/ *::::* 

B5 


J SR 

ED OUT 


» 

7 w v. *«* it 

13 3: h 3. 


I ! ( J 



LDX 

#0 

REVFLG 


/ **"; 2 ("} «' 

B 3! A 6* 

86 

C7 



STX 


/ 5 7 O s 

B2A6 

O £. 
DO 

FB 



H *1“ V 

O 1 A 

TEMPFL 


7580 s 

p, -~n y\ <“•: 
to 3 H O 

E6 

CC 



INC 

BL I KSW 

; BLINK OFF 

7590 2 

B .3 tH H 

A 2 

0 i 



LDX 

#1 


7 600 2 

B2AC 

86 

75 



STX 

TEMP 


76 1 0 2 

B2AE 

A 4 

D3 



LDY 

COLNUM 


***** » MM M 

/ 6 3 U 2 

B2BO 

A 6 

bto 



LDX 

L I NNUM 


7 fc-jU 2 

p -p p 

JLm* J*»* Am* J*** 

20 

•iSm O 

B3 


J SR 

p 

t ***** A3 .*** ♦** 


7 640 s 

p> p< 1"-; 
*:3 O W 

4C 

/ ***** 
ofc. 

B2 


J NR 

ENTD2 


7660 * ! 

/ W W ’# 7 W 

B 3 B S 

C 9 

14 


ENT 1ST 

CMP 

#20 

s DELETE 

***** 7 'Mlt ,**, 

/ to / U 2 

B2BA 

DO 

1 A 

i M 



BNE 

ENT ST 1 


7680 s 

B2BC 

2 0 

•••v .***•, 

/ L- 

B5 


J SR 

BLKOFF 


7690 s 

B2BF 

A -“"*1 

M3 

01 



LDX 

# 1 


7 “7 O m « 

B2C1 

20 

M.M ..... 

/ b 

B 3 


JSF; 

FLDBWD 


***** ~»**r 4 ,*♦. 

/ / 1 o s 

B2C4 

***** / 
c> 

C / 



INC 

PE vF L6 


• ••« «*« 

/ / -• i I ** 

.* s *u*. v u 

B 3! C 6 

A 9 

20 



LDA 

#** 


7 / 30 2 

B2C8 

7‘ !'”*1 

•It** '*•* 

M**f f 

/ O 

r*i C 2 T 

Am’ ‘mm 1 


.JSF: 

ED CUT 


7740 “ 

p r :> n p 

»*, MM 

r"i 4m 

00 



LDX 

#0 


***** *»♦*« ««»«« •* 

/ / *“ 1 / i “ 

/ r ***** «’ W 

pvrn 

.**«* 1 *i*«* * *•/ • « • 

8 6 

w / 



r*- *r* v 
to i A 

REVFLG 


'•"f "»? .* ,•*. 

/ 7 60 2 

***• •*•> **«* ***** 
B3Ur 

E8 




I N X 



«»•«* >MM ***** ** 

f ! I «l 
/ / / *-* It 

B2D0 

20 

7B 

83 


J SR 

FLDBWD 


7780s 

P n t 

* -l— i*** *♦»•* 

4C 

6E 

L* 4ni 


JMP 

ENTD2 


"7 "7 Q j*"* 1 w 

/ / / n 

B 2 D 6 

C9 

9D 


ENT ST 1 

CMP 

#157 

5 CRSR LEFT 

7 8 U O 2 

B2D8 

DO 

0 4 



BN Ei 

ENTST2 


7810: 

B3DA 

A 2 

01 



LDX 

#1 


“7 Q •“ f“i «. 

/ CD 4 I.. V 11 

B2DC 

DO 

••*■* “T 

* J* ‘-I 1 



BNE 

FLDBCK 


/ 8 0 2 

B2DE 

MM *M* 
£ ’ □ 
w / 

91 


ENT ST 2 

CMP 

# 1 45 

;CRSR UP 

7840s 

B 3! U 

DO 

O 4 



BNE 

ENT ST 3 


7850s 

R7F7 

A "7 s 

H *lm 

31 



LDX 

ms 1 


7860 2 

B2E4 

DO 

3! B 



BNE 

FLDBCK 


**7 O *7 j “ } it 
/ O / V It 

B 2 E. 6 

C 9 

0D 


ENT ST 3 

CMP 

# 1 3 

« PR 

J? *. w I •* *• 

7880 s 

B 3 Ei 0 

DO 

0 4 



BNE 

ENT ST 4 


“7 Q Q D » 
/ 7 -.7 a 

B2EA 

A “*’# 

M3 

8 1 



LDX 

#$81 


79nn * 

/ / v j* 

B2EC 

DO 

ID 



BNE 

F- LDAHD 


/ v 1 O “ 

**•* **•• ***** 
pVP i— 

***\ j***. 
w / 

1 1 


ENT ST 4 

CMP 

#17 

3 CRSR DOWN 

7 Q ■“ f“> * 

B2F0 

**4« *• 

Du 

tj 4 



BNE 

ENTST5 


7930 2 

B2F2 

/% . 

i‘“i a:.. 

rr > i 
O 1 



LDX 

#$81 


7840s 

B2F4 

DO 

15 



BNE 

FLDAHD 


7950 2 

.**■ ***■ ***** » 

Dir 6 

. ;•*** 
1 -v 

w / 

ID 


ENT ST 5 

CMP 

#29 

n CRSR RIGHT 

7QAO •* 

B 3 h 8 

DO 

04 



BNE 

ENT ST 6 


7 Q 7 (") - 

/ / / *M* It 

B2FA 

H 3 

01 



LDX 

#1 


TOO.-"-* u 

/ 0 u 2 

B2FC 

DO 

0 D 



BNE 

FLDAHD 


/ 990 2 

p pr p 

/*”' r ** 1 

1 ■«; 

W .* 

.1 **n* 

J. A 


ENT8T6 

CMP 

# 1 9 

S HOME 

8000 2 

B300 

DO 

06 



BNE 

ENTST7 


80 1 0 2 

p> t n ^ 

Jw 1 a;.. 

20 

7C 

-3 


J SR 

BLKOFF 


0 U 3 U 2 

Booy 

4C 

5E 

p * 7*1 


JMP 

ENT A 1 


8040 2 

E\ 3 O 8 

4C 

3 0 

B2 

ENTS T 7 

JMP 

ENTGET 


8060 2 

B30B 

‘T* ! **) 

7 C 

Y“i !:r 
DJ 

h LDAHD 

JSF 

BLKOFF 


8070 2 

B30E 

4C 

to 8 

p* 0 
to .3 


JMP 

ENTD 1 


8080 2 

B31 1 

20 

7C 

B5 

FLDBCK 

JSF 

BLKOFF 


R090 2 

B3 1 4 

20 

***** *f— 

7 B 

B3 


•*: .♦♦♦♦. *.*“ . 
0 to to 

FLDBWD 



9 1 00 


B 


•~r 

•i 




/ 

o 





H 





8 1 60 

a 

a 

•r. u, f ,s .•** 

B ■_> I R 

o o 

n*./ m»m 

/ 5 

8 1 70 

n 

B 

B3 1 C 

A 9 

f) f) 

8 1 80 

a 

a 

P; i r* 

nc 

O i_J 

F r B 

h* 1 9u 

u 

a 

P “T P ,P 

Am 1 ‘to. 1 .6 ‘to* 

pi 4 

D3 

8200 

a 

a 

r*t T *~‘t * M, s 

K 

MM ‘ *M * i4m> lilH 

r6 

D 6 

82 1 0 

tt 

u 

p ~r p a 

JU* O^. T 

C 8 


P: v •" f\ 

W v 

a 

a 

p “T P nr 

iO M- tori 

CO 

28 

Q p T 

O .tU. 

tt 

tt 

V**. '"f 1 1 *♦« 

t* v 1 all / 

p i'"l 

?o 

•W. 'm' 

o p a ,--*, 

O *T 

a 

u 

f*: **T •****{ r*": 
1*": . *7 

•••• •»•»* «r 

E8 


o .n -.j U 

a 

ft 

b 4i:. H 

E0 

•? 

.1 / 

r™. f— . .* 

i I 

W 4— W V 

it 

tt 

pppp 

Qn 

/ *M* 

U 5*'1 

8270 

tt 

a 

p 7 P p 

A- - 4«. Um. 

A ••*“ 

Hi. 

0 7 

*M »Jm. 

8280 

a 

a 

BPPU 

A 

R7 

P o 

4m* CJ 

o cj r i 

.*•*% .‘“vs 2 

w? .u. *- *m* 

tt 

tt 

.... ..... • • »»« «... 

Bo-:>2 

H 0 

MM .... 

! 

w w 

9700 
•*** - •* 

a 

a 

Boo 4 

85 

D 1 

o c« 1 V 

tt 

tt 

.... ..... ..... . 

B O O Cj 

84 

D2 

So :,:7J 

a 

M 

V*-. •’•f "♦"1* p*, 

£S O O o 

R v.- 1 

00 

8330 

u 

tt 

...» •»*»« ««.** .. 

b O O m 

A 9 

0 1 

8340 

a 

a 

B33C 

oJ 

t* m r*. 

r* B 

8350 

tt 

it 

B -3 -3 in 

18 


8360 

u 

a 

MM »M^« Mt{» ..... 

Bp •or 

R '7 

i. o 

8370 

a 

a 

TT: T /! A 

be* 4 .l 

irr 
P ,„j 

D 1 

8380 

a 

a 

p. **“T .1 *P* 

Bo4o 

85 

D1 

CJ J* *7 U 

it 

a 

B345 

9 0 

02 

8400 

a 

u 

B347 

E 6 

02 

84 i 0 

a 

a 

B 3 4 9 

86 

D6 

8420 

a 

a 

B34B 

84 

D3 

8430 

a 

a 

B34D 

A nr 
Ro 

**7 nr 
/ 

8440 

a 

a 

B34F 

30 

i r** 3 

1 O 

8450 

n 

u 

B351 

B 1 

D 1 

8460 

a 

a 

p t nr -tr 
jCj •—* toi 

30 

0 4 

8470 

tt 

a 

.... ..... *..»» ..... 

Bob 5 

E6 

FB 

8480 

a 

a 

p T nr “7 

b o o / 

DO 

C7 

8490 

a 

a 

r*i -.*»• nr o 
i*.* v 1 w 7 

C6 

”? :::r 

/ w i 

8500 

a 

a 

r\- -r - :::r p 

B -J 1 0 B 

:rr 
R P 

/ ““*t 
J w 

8510 

a 

a 

B35D 

P Q 

•* “V 
a*- / 

/ j“’ 

8520 

a 

a 

Bo5P 

DO 

BB 

8530 

a 

a 

B36 1 

sur 

I...S t 

1 1 w 

F B 

8540 

»i 

u 

B O 6 -J:' 

p Q 

03 

8550 

a 

a 

B365 

20 

48 

8 Sou 

a 

tt 

B 3 6 8 

6 0 


8580 

u 

a 

B369 

A nr 

R o 

FB 

8590 

u 

a 

B 3 6 B 

DO 

08 

8600 

a 

a 

B36D 

B 1 

D 1 

861 0 

a 

a 

B 3 6 F 

30 

a rc 
Hr 

8620 

a 

a 

B37 1 

b. o 

FB 

8630 

a 

a 

.... MM. ..«M M. ( l 

b o / o 

DO 

AB 

8640 

t« 

a 

t. t ~7 i::r 
jp •_.< x o 

Bl 

D1 

8650 

u 

a 

P T “7 ~7 
JP / / 

10 

A 7 

066U 

a 

a 

B379 

30 

V**. t**“ 

Ub 

8700 

a 

a 

B37B 

86 

i::r 
/ O 

871 0 

a 

a 

B37D 

A 9 

00 

8720 

a 

a 

.... *•»»• l*M/ ..... 

B O / r 


FB 

8730 

a 

a 

B38 1 

A "•]• 

D3 

8740 

u 

a 

.|M ..... M»* M*JI 

B O a O 

A 6 

D6 


BS 


°' 7 50 „ 




..... «••». *"'i ri 

H . j* o . i r;i 


u 

H 


; MOVE 

TO NE 

XT POST I ON IN FIELD 

; IF i-i: 

IGH BIT OF ? X IS SET THEN 

; MOVE 

i; 

TO NE 

XT ? X FIELDS 

ff 

FLDFWD 

STX 

TEMP ’4 SAVE DIRECT 

FLDF00 

LDA 

#0 


P i R 

TEMPFL 

F lDFu 

LDY 

C0LNUM 


LDX 

L I NNUM 


I NY 


i- LbCU 

CPY 

#40 


r« r- <""• 
b v..- 

FLDF 1 


I N X 



CPX 

#23 


p n p 
I..' Lw w 

F LuF V 1 


i nv 

tff MM* » \ 

#2 


LDA 

#40 ;; <SCREEN-i-4 


L D Y 

# >SCREEN 


CJ { R 

SCNL I N 


S 1 Y 

SCNL I N+ 1 

FLDF0 1 

LDY 

#0 


LDA 

#1 


•6 1 R 

TEMPFL 


CLC 



LDA 

# 4 U 


ADC 

SCNL I N 


87 A 

SGML. I N 


BCC 

FLDF 1 


I NC 

SCNL I N+ 1 

FLOP 1 

Q T Y 

O i A 

LI NNUM 


CJ i T 

COLNUM 


LDA 

TEMP ii MOVEMENT 


BMI 

p | n pr p 

FLDF 1 1 

L D A 

< SCNL I N ) , Y 


BMI 

FLDFDN 


J. 1 M t..- 

TEMPFL 


BNE 

FL.DF0 

FLDFDN 

DEC 

TEMP 


LDA 

TEMP 


AND 

#$7F 


BNE 

FLDF 00 

FLDF DO 

LDA 

TEMPFL 


BEQ 

FL.DFD 1 


J S R 

BIP 

FL.DFD 1 

it 

RTS 


h L*. D F 4.-:! 

LDA 

TEMPFL 


BNE 

FLDF 3 


LDA 

(SCNL IN) , Y 


BM I 

F LDF O 


I NC 

TEMPFL 


BNE 

FLDF0 ; ALWAYS 

FLDF 3 

LDA 

(SCNL IN) , Y 


BPL 

FL.DF0 

a 

BMI 

FLDFDN ; ALWAYS 

ff 

; MOVE 

a 

A FIELD OR CHARACTER BACK 

f! 

FLDBWD 

QT x 
i n a 

T E M P ; S A V E D I R E C T 


i jy i**i 

ST A 

i-f u 

TEMPFL 

FLDB0 

LDY 

COLNUM 


LDX 

L I NNUM 


DFY 



b / 6u 2 

***** **«• * 

A**’ ’hi* \m* Mff 1 

1 0 

2 i 

BPL 

F'LDBl 



d / / O 2 

D “T Q O 
L« •_« O O 

AO 

***. ***** 

LDY 

#39 



8 / Su 

B38A 

CA 


DEX 




8790 2 

B38B 

E0 

01 

CPX 

#1 



8800 n 

b 3 8 i J 

DO 

OB 

BNE 

***** f nil •*•* h ♦ 

h L.DBO 1 



8810; 

B38F 

f**4 ♦♦ 

i X 4m 

02 

LDX 

#2 



8820: 

DTQ ! 

jo ■_:* 7 i 

AO 

00 

LDY 

#0 



8830 2 

B393 

1 8 


tin* !***» ****** 




8840 s 

B394 

!♦** H 

20 

r” I ) j’" i'” 

*** «*** j*** _ 

u oK 

F‘LOT 



M*» *•*»• ** 

b b , j U « 

B397 

4C 

51 B3 

JMP 

FLDF1 1 

; GO AHEAD TO FI 

RST 


8 8 6 0 ; 

B39A 

A 9 

0 1 


FLDB01 

LDA 

# 1 


8870; 

v**, .“n t *n 

to b 7 L... 

b 3 

r B 



/***. ■•{•* 
b I }-i 

TEMF'FL 


8880 

b -Jo 7 l". 

’mJ 1 O 




SEC 



8890 2 

B39F 

R vJ 

D1 



LDA 

SCNL I N 


8900: 

B3A 1 

***** •♦** 
b. V 

O 
*« o 



SBC 

# 4 0 


89 1 0 2 

****** ***** •*. ***f 

io-oHo 

85 

D 1 



ST A 

SCNL I N 


O •**- 

W* V,* 1 I n 

W / -j*** v n 

to R b 

B0 

02 



TP p r-- 

b L- CD 

FLDB 1 


8930 s 

BbR / 

C6 

n 9 

JU 4*K 



DEC 

SCNL I N+ 1 


8940 ; 

B3A9 

A** 

C5 O 

D6 


FLDB 1 

STX 

L I NNUM 


8950 c 

B3AB 

b4 

Db 



STY 

C0LNUM 


8960: 

B3AD 

/% r**.’ 

M -_J 

»»*•* **»*• 
/ -_j 



LDn 

TEMP 

; MOVEMENT 

H *t 70 s 

B3AF 

30 

1 0 



BMI 

F L D B 2 


8980; 

B3B i 

B1 

D1 



L D A 

( SGML I N ) 

? Y 

8990 2 

B3B3 

30 

L- 1 4 



BMI 

FLDBDN 


9000 s 

B3B5 

!:::. 6 

FB 



INC 

TEMF'FL 


90 1 0 : 

jp **3 P.| * 7 

DO 

C8 



BNE 

FLDB0 


9020 s 

B3B9 

A 3 

FB 


FLBBDN 

LDA 

TEMPFL 


9030 ; 

B3BB 

F0 

03 



BEQ 

FLDBD 1 


9040: 

B c« B D 

20 

48 

B8 


J SR 

B I F* 


9 0 3 0 2 

B3C0 

60 



FLDBD 1 

RTS 



9070 s 

B3C1 

A Cr 
M 

FB 


5 

FLDB2 

L D A 

TEMPFL 


9080 ; 

ip ~.r r- 

DO 

y*% O 



BNE 

FLDB 3 


9090 s 

B3C5 

B1 

D 1 



LDA 

( SGML I N > 

? Y 

9 J. 00 : 

b • j« L- / 

30 

B8 



BMI 

FLDB0 


91 10: 

B3C9 

E 6 

FB 



I NC 

TEMPFL 


9 1 v o ■« 

/ J. .1... V XI 

B3CB 

DO 

B4 



BNE 

FLDBO 

; ALWAYS 

9 1 30 ; 

B • C D 

B 1 

D1 


FLDB3 

LDA 

( SCNL I N > 

9 Y 

9 1 40 ; 

B3CF 

10 

Bu 



BPL 

FLDBO 


9 1 50 ; 

B3D 1 

oo 




DEY 



9 1 60 ; 

b j* 1 J b 

30 

E5 



BMI 

FLDBDN 


9 i 70 2 

B3D4 

B 1 

D 1 



L D A 

( SCNL I N ) 

H Y 

9 1 80 ; 

B3D6 

10 

E 1 



BPL 

FLDBDN 


9190: 

B3D8 

30 

j* **®v 

R / 



BMI 

FLDBO 


92 1 0 ; 

B3DA 





. 1" ILE: 

:8, n FILER 

- PAL FT 8" 






; MICRGFILER 

U 

4 

PTS 


130: 

B3DA 

2 0 

24 

***** « 

EA 

n 

4 

RCSRCL 

*M **** 

J oK 

SYNCOL 

; READ CRSR COLOR 

i 4U 2 

B3DD 

A 4 

D3 



L D Y 

COLNUM 


1 50 ; 

B3DF 

7^. *1 

B 1 

***** •••** 
i -j' 



LDA 

( PC CRAM ) 

9 V 

i 60 2 

to ■„> fc. J. 

/ *T 

***** • 

OF 



AND 

#$0F 


i 70 ; 

b • t::. J;: 

8D 

b6 

02 


ST A 

CCQLDR 


180: 

B3E6 

60 




O T C 
r-. { o 








H 

5 PRINT 

SCREEN DATA 


2 2 0 s 

B3E7 

A 9 

01 


»« 

3CRNP 1 

LDA 

# 1 

S PRINT TYPE DATA 

.****„ **, 
ZoU 2 

B3E9 

2C 




. BYT 

^2C 

; BIT OPCODE 

240 ; 

■ ill •nfl ***** *• 

DOtM 

A 9 

00 


SCRNF'T 

LDA 

#0 

SPRINT DATA ONLY 

250 2 

B3EC 

85 

FE 



.... *.M* « 

b i R 

SCMODE 

; STORE MODE 

‘.^1 5 ” 

«!•«* in* ’**’ B 

»*-• n*|* ***** ***** 

D-obt 

8 D 

00 

CF 


b i R 

MAXFL..D 

; SET POINTER 

27us 

B3F 1 

*» ***** 
** • **♦* 

R %J 

2B 



LDA 

FBSSDT 


?RO - 

•x**« 'nJ a 

**n* —t* 

bor 3 

***** •** 
R H’ 

rrk n 

4m in/ 



LDY 

PBSSDT+ 1 


v 9 O r 

*t— .* *.*• ii 

TP p~ cr 

bor -.j 

O 

CP ...j 

*•*• •* 
24 



ST A 

PO I NTB 



v )l ! a 

•***1 •»•»* H**» 

b-jr / 

r"i /3 

o4 

Ah miJ 


STY 

PD I NTB+ 1 


-3 i u s 

b ■ j> r 7 

A ***** 

ri 0 

f") V 

‘m* ala*. 


LDX 

#2 


“T 7 * A « 

•™ l ,i^, ■„■ a 

rj t cr T“= 
fc ■».! i O 

A 0 

•a m 

OO 


LD Y 

#0 


330 s 

B3FD 

1 3 



CLC 



340 s 

***• J«** ***«4 

nor L 

*♦•• «T 

2 O 

F 0 

FF 

J SR 

PLOT 


350 s 

B401 

A0 

00 

SCRNI 

LDY 

#0 

; ENTRY MAIN ONLY 

b£>0 s 

B403 

84 

C 7 


STY 

REVEL b 

; REV OFF 

™7n « 

♦*a* J ** *♦*« B 

B405 

20 

■7 p 

B5 

J SR 

BLKOFF 


3 £30 * 

B408 

B 1 

24 

SCRL0P 

LDA 

(POINTS) 

n V 

7,QD «■ 

B4oA 

F0 

Oh 


BEQ 

C- 7 P* “7 

O L- r\ .«2 


400 s 

B40C 

■7 f‘i 

4m* *m* 

i 6 

r — 7 

1 / 

♦•♦a* a 

JBR 

SCROUT 


4 1 0 s 

B40F 

8 4 

D4 


bTy 

QUOTSW 

s CANCEL QUOTE 

420: 

B4 1 1 

2 O 

D 5 

B8 SCRNXT 

JSR 

I NCPTB 


430: 

B 4 i 4 

DO 

F2 


BNE 

SCR L OP 

: ALWAYS 

450 c 

B 4 i 6 

20 

V“, cr 

Uj 

B8 SCR2 

J B R 

I NCPTB 


460 s 

B4 1 9 

B 1 

24 


t *•*•» «, 

LDH 

( PQ I NTB ) 

«? Y 

470: 

B4 1 B 

F0 

4D 


BEQ 

SCNDON 

; 2 ’O IS DONE 

4 SO : 

B4 1 D 

48 



fha 



490: 

B41E 

20 

D5 

B8 

J S R 

I NCPTB 


500 s 

B421 

B1 

7 A 

4mm i 


L U H 

( PC) I NTB ) 

9 Y 

5 1 0 s 

B423 

H hi 



TAX 




B424 

AD 

00 

CF 

L D h 

MAXFLD 


f”" ***r ,**. 

™! . j, (J 2 

B427 

30 

18 


BM I 

r* »■—- r - ' d a 
oLKiU 

; NO SAVE DATA 

540 s 

B429 

A8 



TAY 



550 s 

B42A 

6 S 



PL A 


h GE T CHAR 

5 AO ° 

L.. ! a 

B42B 

48 



PH A 



^70 - 

w . v / *5 

B42C 

1 0 

i 3 


BF :, L 

SCR 20 


530: 

B42E 

— *: ****** 
«*•• 

4.M / 

03 


AND 

#3 


590: 

B430 

18 



CLC 



600 : 

B43 1 

6 A 



RQR 


; MAKE 2 LOW BITS HIGH 

6 1 0 s 

B432 

6 A 



RQR 



jL ^ * 

lit* t| »m» 4**^* 

Jd 4 ■!’> 

6 A 



RQR 



630 s 

B434 

9 9 

0 7 

*«•« M*M 

b 

b 1 rj 

FLDTBL ? Y 


640 s 

B437 

8 A 



i X A 



650 s 

B438 

4 ***** 1 

T **v 
4a a* 

07 

CF 

ORA 

FLDTBL . Y 


660 ii 

B43B 

l““: **‘“t 

•M* **M 

07 

CF 

MM < aaaa* 

: .?j 1 f’i 

FLDTBL , Y 

; ADD IN LENGTH 

6 7 0 s 

Jb 4 b b. 

EE 

00 

CF 

INC 

MAXFLD 


600 : 

B44 1 

A0 

00 

crpvo 

LDY 

#0 

p*. j j**^ j***, n % .*■ 

I| Ll„LHK ’ 7 

6 3 O 2 

B443 

68 



PL A 



7 00 : 

B444 

C9 

H O 


CMP 

# 1 60 


710: 

B446 

F0 

10 


BEQ 

SCR 29 


720 s 

B448 

C9 

E 3 


CMP 

■“ ”7 

X t 4**4 4**4 s’ 

5 REV C 

730 s 

B44A 

F0 

04 


rijjrps 

M**^ Sm«* **«^l 

SCR 2 7 


7 4 O s 

B44C 

U9 

EE 


CMP 

#238 

s R E V N 

7 ii ) u 

J W B 

B44E 

DO 

0E 


BNE 

SCR 3 


/ 60 2 

p a i.™; f -. 

■*"**» i****i 
.• % *y 

Ah .* 

5F 

crp97 

AND 

#7,0 1 0 1 1 1 1 1 

*770 - 

/ / «l 

B452 

/I O 

4 



PH A 



7S0 2 

B453 

AS 

F E 


LDA 

SC MOD F 


790 s 

B455 

DO 

04 


BNE 

SCR 2 8 


800 2 

B457 

# :***: 
-****1 rn 
w W 



PL A 



8 .1 0 c 

B458 

A 9 

7 0 

Am *** 

qpp7Q 

‘mm 1 W 1 \ .1**. / 

LDA 

# H 55 


R?n » 

B45A 

48 



PH A 



S30 2 

B45B 

68 


SCR28 

PL A 



840 2 

B45C 

r- / 
LD 

H** M*M 

u / 


I NC 

REVF LG 

; SET REVERSE FLAG 

850 2 

B45E 

70 

4*a* -m 7 

i 6 

r.:." "7 0 p- p "T 

JSR 

SCROUT 


860 : 

B46 1 

A O 

A / 

7 0 

altaa ’•#’ 


LDA 

# U M 


b 7 O 2 

B4ov« 

CA 



DEX 



hho - 

%*ar w* a 

B 4 6 4 

DO 

***** J**”l 
»***. 
1 U; 


BNE 

SCR3 


890 2 

B466 

86 

C7 


STX 

REVF LG 

: REVERSE OFF 

900 2 

b 4 0 D 

F 0 

a* MM* 

A / 


BEQ 

SCRNXT 

; ALWAYS 

Q v O « 

B46 A 

AD 

00 

CF SCND0N 

LDA 

MAXFLD 

5 TEST FOR MAIN 

950 2 

b46D 

30 

*\f C"t 


BM I 

SCNRT 

; YES-DO NOT SETUP 

940 2 

B46F 

S\ 1 

4*** aa 

D5 

12* Q 

r.« 0 

JSR 

I NCPTB 


950 2 

•M ** ***** ***• 

: x /! . • : 

T / Am 

B 1 

.si 4 


LDA 

< PO I NTB ) 

« V 


■Mi a •• 

W i a 

; U/ y 

•aaa •« ***** *• 
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b4 / 4 

3D 

*• 

ou 
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9 7 0 s 

*+ / / 

20 

D5 
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DO 

J SR 

INCPTB 


9 SO 5 

B47A 

B1 

"•;* - i 

4 :: 4 


LDA 

( F‘Q I NTB ) 

? Y 
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b 4 / *w 

SD 

0 1 

OF 

STA 

1 RE GLEN 


I OOO 2 

B47P 

20 

D5 

BS 

J SR 

1 INCPTB 


1 0 1 0 s 

Id 4 6 .£ 

B1 

24 


LDA 

(POINTS) 

? Y 
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B484 

SD 
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i 
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C F 

Q 1 A 

****** * r i 

RECLEN+ 1 


1 M'^n . 

X v w v it 

B487 

20 

fiR 
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B8 

JSR 

I MCPTB 


1 040 s 

B4SA 

A 5 
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LDA 

PO I NTB 


1050: 

B48C 

A 4 
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LDY 

PO I NTB+ 1 


1 060 s 

B4SE 

□ £r 
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2F 
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i’ M N 
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t t 

nn 

B 4 V O 
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30 


C: T V 

W 1 I 

PFRMPT+ 1 


1 090 : 

B492 

AE 

Q Q 

H 
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L/5 

L D X 

MAXFLD 
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1 1 00 s 

B495 

E8 



INX 


; PLUS 2-LM L LINES 

111 0 s 

B49S 

8 A 



1 X H 



1 1 V f") « 

a. 4. -U*. V R 

B497 

'•■j hi 



AbL 


; MULTIPLY BY 2 

1 1 30 2 

B498 

An 



T (4 A 



1140: 

9499 

2.“* O 
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D5 

BS SCNDN1 

JSR 

I NCF'TB 

; DUMP FORM 

1 1 50 2 

B49C 

r~ a 

w hi 



DEX 


; PRINT DATA 
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B49D 

DO 

FA 
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B49F 
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H -J 
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* 

L D A 
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B4A1 

A4 

nr 
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LDY 

PO I NTB' + 1 
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B4A3 

O err 
O U 

*7* -j 

O X 


b i A 
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1 1 U 2 

B4A5 

O -1 
O *r 
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V f) 

a**. *«* 
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• t*y 
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B4AB 

A "" 
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5 
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L D X 

#8 
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B4AD 

20 

BC 

B9 
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05 
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L- D A 

#5 
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B4B2 

zU 
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/ D 

B5 

JSR 

EDOUT 
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B4B5 
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LDA 
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B4B7 

20 
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ID d 
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CHKF'RT 

; PRINT IT 
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4C 

cs 
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B4BD 
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ri 

FF 

•I 

npqi np 
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LDA 
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B4BF 

F0 

07 
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0B 
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JSR 
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00 
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B4L6 
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00 
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LDA 

#0 
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cc 
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D4 
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QUOTSW 
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B4CE 
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JSR 
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2 **•. r 1 s' 
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02 
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p i p 
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C9 

00 
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CMP 
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01 


BNE 
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RTS 
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B4DC 

C9 
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B4DE 

90 

19 
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CHKTBL 
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60 


CMP 
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90 

oc 
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B4E4 
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LDX 
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CHKTBL 
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C9 

AO 
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90 

OD 


BCC 
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C9 

Eo 
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CD 
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20 
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1720 s 
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/ 80 s 
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S 6 O 3 


840 s 
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S 8 0 s 
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J .* u 
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40 
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B5 
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UNWRAP ; CANCEL WRAP 
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4 
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B4 

U 
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DESLOP 
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4 
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LDX 
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DD 

OB 

B5 
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CMP 
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B4FE 

F0 
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DES3 

B5UU 
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1 0 
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BPL 

CHKTLP 

B503 
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B8 


U 
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B505 

20 
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.. 
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B5 
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J SR 
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4C 
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B4 

8 
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05 
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4 
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^ 1 3 1 "7 ! R I 9 ”' f "' 3 R 
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J. %«i V If -X- .}. If j* W a -i. ' if J. *T U J. Jf J. •— .* 
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8 
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.... ..... .... ..... 
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ID 

91 
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4 
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CMP 
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DO 
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4C 

Cl 
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B530 
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CMP 
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B532 
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DO 

{ .J 
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E6 
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INC 
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L D A 


P T Q 
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20 
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I..* b 
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JSR 
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bb-jL 
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LDX 

#0 

B5bE 
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PLP 


B53F 

F 0 

07 

'm* / 



B E::. Q 

CHK 1 1 

B54 1 
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LDX 

#3 ; DISABLE REV ON CRSR 

B543 

DD 

2 3 

B5 

CHK 1 

CMP 

CURSUR, X 

B546 

DO 
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BNE 

CHK 1 2 

B548 

A V 

00 


CHK i 1 

L.. D H 

#0 

B54A 
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C* / 



r M * t a 

0 i H 

REVFLG 

B54C 

C A 



CHK 1 2 

D E X 


B54D 

10 

F4 



BPL 

CHK 1 


B54F 

ill 

<r 
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LDA 
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B551 

C9 
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CMP 
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DO 
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BNE 

CHK 2 
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A 7 
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LDX 

#0 



B557 
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D3 
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B559 

70 

A f“ 

w w 

E5 


JSR 

SETSCN 


; SET SC R E E N P 0 1 N T E R S 

B55C 

cr 

Hj 

D 6 


CHK 2 

LDA 
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p jt; cr c* 
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7 Q 
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02 



CMP 

#2 


;2 LINES AT TOP 

B560 

80 

Ufi 



BCS 

CHK 3 



B562 

AS 

AO 



LDA 

# 1 60 


; FIX DELETE ERROR 

B 5 & 

8 D 

4F 

C 8 


ST A 

SCREEN 4-7 

9 

; IF TOP RIGHT CORNE 

O cr **7 
Jt?T»JC) / 

A 9 

CD 



L D A 

# 1 3 


; CRSR DOWN 

B569 
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DO 

CD 



BNE 

CHK OK 


; ALWAYS 

B56C 

r q 

V4 

17 


CHK 3 

CMP 

#23 

-.1 

4 
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b s D 6 c 

90 
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B5 / u 

-* 4 . rn 

H7 
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LDA 
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h 7 7 
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»•»» . M.M tf.M IMM 

B 3 / •-> 

DO 
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BNE 

CHKOK 


; ALWAYS 

t”» cr ”T s::r 
b \J / 3 

A j”’i 
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CHK DON 

ji 

RTS 




*^M_ M*m *•••_. J 

.V«* U/ / W 

.• 1 ) 

4m» 

7C 

B5 

EDOUT 

JSR 

BLKOFF 


; EDITOR OUTPUT 

B579 

4C 

1 & 

E 7 


JMP 

BCR OUT 


5 PRINT & RETURN 





; BLINK 
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*»*• ***** *»*• 
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•FECT ’A, 

? 
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-I 
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BLK.OF f 

F'HA 


; BLINK CRSR OFF 
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B57D 

E 6 
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; BLINK OFF 

.•n — * 1 * .**, ,**. 

zjUU 2 

B57F 

A Cm' 

MJ 

CF 



LDA 

BL I ICON 

; IS BLINK ON 
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2210 s 

ncrn -f 
OOO X 

FO 

14 



BEu 

BLKOK 

; NO - CONT 
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4n* 4... •«• it 

P nr q -r 

BA 




T X A 



7 “T "T | "1 11 

•u. ■— 1 V a 

t”: nr r~ a 
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4 id 




PH A 



7540 « 

MM M.M i.M, *M*. 

B5S5 

r“ o 
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1 Y H 



***• **M JM** M 

? - t ^ i i } * 

.s,„ •«' R 

B586 
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PH A 
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3 
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b 2 O / 

A cr 

hi w 
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tt»4 IftM 



LDA 

BL I KCH 

2 bh i L-HhR 

»*« *“;• 

*% / I i « 
.t.» ‘m* / v i; 

B589 

AE 

m “7 
O / 

M 7 

*m' 4it. 


LDX 
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"*V 

• *• :»*** 1 i ** 
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B58C 

Au 

00 



LDY 

#0 


2390 s 

p. cr q ir 
O U O i— .. 

Q 4 

]****. 1***' 
W 1 



itM *tMl f # • 

O 1 T 

BL.IK0N 

; BLINK OFF 

2400s 

B590 

7 Q 

T 

4a 

•••it M 

i:::. A 


J SR 

BLIPRT 

; PRINT CNF; UNDR CSR 

2410: 

v*t JOT rj "T 

b %j t 

i r”: 
OO 




PL A 



r? /«!. t* r> « 

B594 

A 8 




i HY 



2430 ;; 

nr r*. nr 
b 2 7 2 

68 




FLA 



2440 s 

B596 

A A 




TAX 



2450s 

B597 

z_ o 
o o 



BLK0K 

PLA 



2460 s 

B 5 9 o 

A f\ 

w . 1 ‘«* 




RTS 



2 4 5 U s 

B599 

A 2 

00 


UNWRAP 

! n V 

btti At* / t 

#0 

5 CANCEL WRAP TBL 

7? Q (“) “ 

1 -r ‘m* u 

B 5 t B 

BS 

D9 


WRAP 1 

L D A 

WRAP ? X 


7500 - 

Jh. ’m* V U 

.•at (tttt ill* *ftt t 

B59D 

09 

80 



ORA 

#*80 


7 nr -j ["j 

b 2 7 j 

s nr 
7 %J 

D9 



ST A 

WRAP ? X 


v r - : v “0 « 

4m. %.• 4.M *M* H 

B5A i 

r**’ F”i 

r d 

laaaa mm 




I N X 



‘ l — . Tf i n 
w v ! a 

B5A2 

E0 

i A 



CPX 

#•$ 1 A 


r^, r*- -1 

2540 s 

B5A4 

90 

F 5 



BCC 

WRAP 1 


■7 *7 50 £ 

B5A6 
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RTS 








5 ROUTINE TO 

GET A CHARACTER 

7 5 b o « 

4m. 'mm* / V R 

B5A7 

A 9 

00 


GETCHR 

LDA 

#0 


2600 s 

B5A9 

85 

Mtt f 

Lw o 



ST A 

NUMCHR 

; DUMP KEY BUFFER 

2610: 

B5AB 

A 9 

M Mttt 

i : { - t 



L D A 

#< GETFN 

; PART OF DESTROY 

7 A "T f") n 

46U-J V a 

B5AD 





. IF 

CART - 1 


.... a t »» 4 

* * *‘ >*,“:! 1 “ 
Am W W *m‘ » 

B5AD 


t r*. 
•J 1 0 



LDY 

T0PRAM+ 1 

; DESTROY ROM ATTEMPT 

/H 1 1 J 

Am W V R 

B5AF 

7 O 
L.- O 




I NY 



2670s 

p;5BO 

l .. 1 w JU’ v 

Q r.:; 
O _J 

6 i 
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CD i M 

ACCOM 1 


2680 s 

*«« •*“. 

b o b o 

84 

O 2 



STY 
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i-. W s } ;« 
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B5B4 

91 

6 i 


GET DEB 

ST A 
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v 7 O O 
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B5B6 

8 8 




D E Y 
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B5B7 

DO 

FB 



BNE 

GE s DES 
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B5B9 

7 f) 

/| 
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«} 

GETCHL 

JSR 

GET KEY 

; GET KEYBOARD 

7740 » 
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C9 
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CMP 
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7 7 5 O 15 

B5BE 
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90 
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c o 
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BCC 

GETCHL 

; DUMP ALL UNDER IT 
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H 
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; R0U i 
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2800 s 
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20 

"7 p. 

/ u 
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H 

INSERT 

•J b K 

BLKOFF 


28 i 0 s 

B5C4 

A 0 

^itft 
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1 n V 
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#39 

; SCREEN LINE LEM 

v h v n “ 

B5C6 

B 1 

D1 



t MM M 

{ i t A 
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V 
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C 9 
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CMP 
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DO 
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C4 
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• 
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DO 
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F 0 

IF 



BEQ 
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BSD 4 
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I NSRT 2 
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20 
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LDA 
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On. / / *«• H 

picrr-cr 

Ht* ***** 1*1** *« 1* 

r*i r*) 

DO 




DEY 


3000 : 

Y** ***** *■*•* 7 

b O S:::. b 

a*** *f 

i A 

D3 



CRY 

COLNUM 

30 1 0 s 

B5E8 

DO 

P P 

tun 1 



BNE 

I NSR 1 2 

T O f\ i, 

4-. -■ u 

B5Eh 

§ H •*♦*_ 

H *7 

20 



LDA 

# 51 55 

•—r "f 

8080 2 

p p ir p 

A*»* ***** w««« ***** 

9 1 

D'l 



S i A 

(SGML IN) . Y 

•->040 2 

yt« ***** ***** f**» 

B •- j b c. 

AD 

86 

,** ^M*. 

02 


l.Da 

**aa aaaa ihi * naa m* 

c COL OR 

3050 s 

B5F 1 

91 

r— ♦♦♦r 

r 



ST A 

(PC CRAM) , Y 

3060 s 

pK-rT 

An Nail 1 * *a* 

60 



I NSDDM 

RTS 







; ROUTINES TC 

3 CLEAR SCREEN AND 






5 REDF 

: <AW TOP 

AND BOTTOM 

“Til ("j .. 
v 1 X J. -J u 

B5F4 

?o 

•ill! •*' 

••* 1 * *?*♦, 

•J:= b 

RA 

Ah' W 

5 

SCRuLR 

J SR 

ARACLR 3 CLEAR CENT 

3 1 20 : 

C* cr rr "7 
L.' -. J t / 

2 0 

0B 

•*** • 
bb 

CLERTB 

it 

J SR 

C L E A R B 

3 1 40 s 

B 5 F A 

*♦ ***+, 
H 2 

4F 


H 

CLEAR! 

L.DX 

#79 

3 1 50 ;i 

B5FC 

A0 

A0 



LDY 

# 1 60 

3 1 60 s 

l*M IIMI Mill IIIH 

B5F-E 

A 9 

UE 


C L E A Fi 1 

LDA 

# 1 4 

3 1 70 s 

B600 

9D 

00 

D 8 


ST A 

COLORR, X 

3 1 80 

B603 

98 




{ V M 


3 1 90 s 

buU4 

9D 

00 

C 8 


s r a 

SCREEN h X 

3200 s 

PA A 7 

An' W •*** *f 

CA 




DEX 


T ““ 1 C) “ 

B608 

10 

F 4 



BPL 

CLEAR 1 

^ u 

*i*a 4 iltn nw ’n’ 1! 

B60A 

60 




RTS 


3240 s 

B 6 O B 

A 7 

1 1 Oh. 

4F 


CLEARS 

LDX 

#79 

— r r*. r** 

•» *••*. 1 : ii 

•-.* -j1*. w..* •**• t« 

B60D 

A0 

A 0 



LDY 

# 1 60 

.l. o u 2 

B60F 

H 7 

0E 


pi PAR 7 

l...‘ i. H . :..i. { l{ n iU 

LDA 

# 1 4 

7 v "7 O “ 

Bb 1 1 

9 D 

98 

DB 


ST A 

CuLORR+920 , X 

3280 s 

B 6 1 4 

98 




•*r \ / a 
I T M 


TvQn *» 

*#aa* 4 m* * H* *1 

B 6 i 5 

9 D 

98 

CB 


ST A 

SCREEN+920, X 

*♦«#< •***• # n «• 

8 8 l -J O n 

B 6 i 8 

CA 




DEX 


33 i 0 : 

B 6 1 9 

10 

{•** 4 



BPL 

CL EAR 2 

"3 “3 A u 

n 

B6 1 B 

60 




RTS 







; ROUTINE TO 

CLEAR ALL FIELDS 

•“!' — r 

*. *• /.». ( j II 

•-.* O - J u 

7**. / .1 ***•*. 

lu 1 Va*V 4. N*W 

A 9 

00 


CLRFLD 

L... D A 

#< SCREEN 

him inn tttn n 

AO 70 2 

B 6 1 hr- 

A 0 

pR 

W ’hi.* 



L D Y 

#> SCREEN 

3380 2 

B 6 O 

85 

**** \m 

b ■*" 
* .* 
.*»•* 4.ii 


CLRFD0 

*aaa ana. aa 

S 1 R 

POINT A 

3390 z 

l**i 4 *a*ia* iIh< *4aaa 

MM *J 

Q 'if 

.i, 



STY 

POINTA+1 

3400 s 

B624 

A0 

50 



LDY 

#80 ;2 LINES 

34 i 0 z 

*«** * .****. * 
b b 2 b 

A 2 

A 0 



LDX 

#160 ; REV SPACE 

3420 s 

P27.q 

Bi 

/*•*. .****. 
4iu 4 ih 


CLRFD1 

l . D A 

(POINTA) „ Y 

3430 s 

B 62 A 

1 0 

03 



BPL 

CLRFD2 

3440 2 

B62C 

8 A 




T X A 


3 4 5 0 2 

B62D 

91 

.■*»* /•« 
a* a* 

•!•*• ***** 



ST A 

(POINTA) „ Y 

3460 z 

B62F 

cs 



CLRFD2 

I NY 


3470 s 

B630 

DO 

F 6 



BNE 

CLRFDl 

3480 5 

B 6 3 2 

rr 2 . 
I:r.. b 

r M . 

afca* *m 5 



I NO 

PO I NT A + 1 

3490 s 

V", f **T .*1 

3b b 8 H 

HvJ 

"j “T 

•ku **./ 



LDA 

PD I NTA + 1 

3500 s 

B636 

C9 

mi/ aaaa* 



CNR 

#$cc 

35 1 0 s 

B638 

9 0 

EE 



BCC 

CL RED 1 

i *- ! ! i “ 

.Ik. U 

B63A 

60 




RTS 







5 

; ROUTINE TO 

CLEAR MAIN AREA ONL'i 






5 AND 

SET COLOR TO WHITE FOR BUG 






; I N 

r“> cr \ id b 

1 \ j-., V w 

AND 3 OF ROMS 

•III- aaaa* 11 , 

*’j 1 “‘j W t j j 1 

'n. 1 W W ’« U 

• 1*. 1 Ul|* III* 

B b 8 B 

A 0 

00 


s 

A R ACER 

i n v 
L.D y 

#0 

r*“ :***. ,“i 

ojVU 2 

b b 8 U 

H 2 

01 



LDX 

# 1 


MH» - M .*• 

. \ o U O 1 ! 

B63F 

A >""» 

M 7 

n 

.U- *.. 7 

A R A L r 

L. U H 

4 n 

T A 1 f“] I, 

CD -J. V a 

B641 

r*t r # *i 
N -y 

r* M ,*♦. 

DO 

C 8 

STA 

Sl:REEN4-ho ? y 

T / /V _ 

• 2 > o ..2 U S 

B 6 4 4 

•*c -y 

,“•* s*“*. 

•2 4m. 

C9 

MM » 

CD 1 H 

SCREEN +80 +2 1 0 „ Y 

3630: 

B64 / 

rp> r*) 

r* -4 

r 4 

r q 

W 

STA 

S L R L : ::. Ed N + CD O “ 1 “ 4 2 U 5 Y 

3640 s 

t' £> *+ h 

Q Q 

L CD 

.... .. 
LH 

p\ H r /*. 

CD I H 

SCREEN^ 80 4*6 30 , Y 

**T a- EH* i"l si 
•■■■ n 

864 D 

8 A 



T X A 


•■t .* ; . M . 

2 * b o U S 

B64E 

'••V W 

/ / 

Sr i 

w V 

D 8 

s r a 

COLOR R +80 , Y 

> i 1 « 
-a.- W / •-• a 

B651 

CD o 
/ / 

»•»* •♦.* 
••* 

r% r*. 

V 7 

CD 1 H 

C0L0RR+80+2 1 0 , Y 

“T ; **n 

•*' 6 qU “ 

b O *4- 

,'*‘t >**j 

**r **y 

F4 

D9 

r**- ~r a 
CD » M 

C 0 E 0 R R 4 0 o 4* 4 2 O ? v 

nni r •# 

o 6 ?U S 

p cr *'7 
DO J / 

c* c> 

C 6 

DA 

STA 

C 0 L 0 R R 4 B 0 4 1> 3 0 , Y 

3700 : 

v“i / r.:r s\ 
b © *J }-i 

C 8 



I NY 


"T ****t .1 

■3 / i O S 

B65B 

CO 

D .•:« 


CRY 

#210 

y y - ^ 

/ .u v w 

B65D 

DO 

E 0 


BNE 

ARAEF 

•MU Min HMI ** 

•j. / 2*0 S 

B65F 

60 



FvTB 






: ROUTINE TO 

ZERO FIRST BYTE OF 





: ALL 

RECORD: 

H 

.... 

•j-. / 80 s 

B 66 U 

A 5 

-T .1 
•2* 1 

RESFLG 

LE^A 

RBGREL- 

\ / W< j » 

B 6 6 2 

a!|. 

‘2* 


LDY 

PBGREC+ 1 

3800 s 

B 6 6 4 

CD 

O wJ 

”T M T 
-2* 

RE8FG0 

,••**, **i** 

CD 1 H 

P C R R E C ; D E S T R 0 Y E N T R Y 

38 1 0 s 

B 666 

r*‘i 

CD 4 

34 


STY 

PCRREC+ 1 

3820 g 

r*i / / CD 
DOOO 

A U 

00 

RESFG 1 

I D Y 

la... Am* I 

#0 ; CLEAR BOTH ’ Y 

3S30: 

b CD O 57 

r. r“ 
7 O 



•T' x / A 
} T 57 


3840 : 

B 6 6 B 

o ^ 

7 1 



STA 

( PC RR EC) 5 Y 

3850 s 

hoau 

20 

F 0 

B 8 

J SR 

ADDLEN 

3860 s 

B 6 7 O 

9 i) 

*M*t . 

r cd 


h n 

•*.M >M. 

R E b h Id? 1 

2*8 / U s 

B 6 / 2 

60 



..... HIM MM 

K i CD 






; ROUT 

INE TO 

ANALYZE SCREEN 





; AND 

SET UP 

BUFFER 

T w ? ( ) * 

*m‘ .* 4 m. V 7 I? 

MM . ***«. »Mj» 

DO / -.J* 

20 

..... 

/ *M** 

s 

B5 ANALYZE 

J SR 

BLKQFF 

•My MM, ...|» 

0*9 0*0 5 

Bcd / CD 

A 9 

o •**'*: 

“V V 

3 4.M 


l.. D A 

#146 ; REV OFF 

3940s 

B678 

20 

MM* • 

7 cd 

B5 

J SR 

ED OUT 

3^*50 s 

; w v a 

B67B 

/\ r\ 

^'4 7 

50 


EDA 

#80 ;< SCREEN +80 

3960 s 

bo / u 

A 0 

U 8 


EDY 

# > SCREEN 

•J* 7 / V a 

PA7P 

Am* W / 1 

p 3 7 

w w 

Am 4 


STA 

F'OINTB 

7 CD £0 f“i » 
•J* 7 O -J is 

B 68 1 

♦*.* J*. 

04 

UM .*•.- 
1 .... 

* * 


h r v 

PO I NTB+ 1 

7Q Q f) a 

B683 

H l -J 

D 8 


EDY 

# >C0L0RR 

4000 2 

d6oj 

C\ i::r 
CD v.J 

y p 


CD i A 

PO I NT A 

40 1 0 s 

MM J »*M ».»»* 

b b CD / 

84 

Am *«•* 


STY 

F‘OINTA+1 

4020 s 

B689 

A nr 
hi --J 

2 B 


E D A 

PBGSDT 

4030 s 

B 6 b B 

A 4 

"P 

Am* Um* 


EDY 

F'BGSD I 4 1 

4040 s 

B 6 S D 

nc 

o u 

20 
•Im. **,* 


s r a 

BUFPTR 

4050: 

B 68 F 

84 

p j 


STY 

BUFPTR+ 1 

4060 s 

B 6 9 1 

A 9 

FF 


L D hi 

#*FF 

4*0 / O “ 

p / r*s 7 
b CD 7 -2* 

O n: " 

0 . .. j 

"7 *•••? 


STA 

TEMP 3 ; CLEAR COLOR 

4080 

B695 

A 0 

00 


L.„ D Y 

#0 

4090 s 

p 2. © 7 
Jfc* o 7 / 

84 

FB 


STY 

TEMF'FL : ZERO FIELDS 

4 1 00 s 

lll'j ,«•»» *My' 

8 C 

0 1 

CF 

STY 

R E C L E N ; Z E R 0 F I E L D L 

41 10 : 

B69C 

8 C 

02 

p jcr 

STY 

REdCEEN4 1 

4 i 20 s 

B69F 

A 9 

i 4 


E D A 

#20 s NUM ROWS 

4 i 30 s 

bC:>H 1 

I™: cr 
CD 

8u 


CD i H 

ROWCNT 

414 O n 

BohJ 

A 9 

7* CD 

4*m 


EDA 

#40 

4 1 50 s 

t**i > /\ cr 

bond 

85 

81 


STA 

COLCNT j SET COLUMN 

4 i 60 s 

p. / .n *7 

doH / 

B 1 

2 3 

A 14 A E 0 F* 

EDA 

(POI N T A ) , Y ; G E T C 0 L 0 R 

4170s 

B6A9 

C5 

/ 


CMP 

TEMP 3 

4 1 S 0 u 

B 6 AB 

F 0 

08 


BEQ 

ANAL'l 

4 1 V U s 

B 6 AD 

O nn; 

MM/ M../ 

/ / 


S T A 

TEMP 3 

4200 s 

B Cd A r 

aC. ’ .T 

7 hi 

B 8 

J SR 

CLRCOV ; CONVER COLOR 

42 1 0 s 

B 6 B 2 

20 

C5 

B 0 

J SR 

BUFIT ; INCREMENT BUF 

/£L 7 v O ^ 

T Um- 4m. % m* is 

B6B5 

B 1 

.****. f\ 

,2>i- 

ANAL 1 

EDA 

< P 0 1 N T B } , Y 5 G E T C H A R 

4230: 

B 6 B / 

C9 

20 


CMP 

4 »« ” 

4240: 

B6B9 

DO 

0E 


BNE 

ANAL3 

4250 s 

B 6 BB 

A A 
i-i j”T 



TAX 

3 SAVE CHAR 


' A 


EN( 


3 i 


TO ASC 

r b. K 


f’—t 


4260 s 

B 6 B C 

C6 

****** .t 

6 i 


ANAL2 

DEC 

COLON T 

; LOOP TILL NOT 

4270 2 

B6BE 

30 

•* ***** 

05 



BMI 

ANAL 2 1 


i\l, i' ”'j is 

! 4a. 1 t: 

B6C0 

C8 




I NY 


; SPACE OR END OF ROW 

4 2 9 s - j 2 

B6C 1 

D 1 

2 4- 



CMP 

(POINTS) 

9 Y 

4300 s 

B 6 U 3 

F0 

F 7 



BEQ 

A N hi l..„ .iL 


43 1 0 2 

B6C5 

Q O 

/ w 



ANAL 2 1 

TYA 



4320: 

b6C6 

48 




PH A 



4o-j>U 2 

btoL / 

DO 

.****, H 



BNE 

ANAL4 

q ALWAYS 

4340: 

B6C9 

****** !****! 

1 “V 

w -* 

80 


ANAL 3 

CMP 

# 1 28 

» CHECK REV uHhR 

4350: 

B6CB 

90 

3D 



A..‘ C 0 

ANAL 6 


4360: 

B6CD 

C9 

A 0 



CMP 

# 1 60 

h uHECK REV bP AuE 

4370 s 

v**, / f***. r*** 

b &:> C F 

F0 

oE 



BEQ 

ANAL 31 


4380 2 

b 6 D i 

C9 

83 



CMP 

#131 

q ppu - r 

4290 2 

7**. a* T**. ***t* 

Bo Do 

Fu 

08 



BEQ 

ANAL 3 O 


4 4 0 0 s 

B6D5 

C9 

..... ,,... 
O ho 



CMP 

# 1 42 

; REV J N 

44 1 0 2 

BbD 7 

F0 

04 



BEQ 

ANAL 30 


4420 s 

B6D9 

A 9 

A0 



LDA 

# 1 60 


4430s 

B6DB 

DO 

02 



BNE 

ANAL 3 1 

; ALWAYS 

4440: 

B6C)D 

09 

60 


ANAL 30 

0F;A 

#$60 


4 4 DO 2 

BcdDP 

i4fi 



ANAL 3 1 

T A X 


5 SAVE CHAR 

4460 s 

B6E0 

r a 

81 


ANAL 3 3 

DEC 

COLON T 

; LOOP TILL NOT 

4470 s 

B6E2 

30 

05 



BMI 

ANAL32 

; REV SPACE OR END 

4 4 S o s 

B6E4 

C8 




I NY 


;QF ROW 

4490 2 

P; JL {T cr, 

i,.’ G) Cn W 

Bi 

24 



LDA 

(POINTS) 

? Y 

4500 s 

• «.. . ***** ***** 

B 6 E / 

30 

FT 

x .* 



BMI 

ANAL 33 


45 1 0 : 

rv r~ q 

F*, /H I- *7 

A.* .... •*.** • 

c> ra 
7 o 



ANAL32 

r y h 



4520 s 

B6EA 

48 




PH A 


5 SAVE COUNT 

4 5 o-O 2 

btobb 

2u 

-n* 

Cb 2 

Bb 


JSR 

T* 1 pi 3 p** i * { 

rl .w i *. i*,*, L. 

: ADD TO FILE LENGTH 

4540s 

B 6 E E 

**..* . 
L6 

FB 



I NC 

TEMF’FL 

: INCREM FIELD COUNT 

4550 2 

B 6 F 0 

F0 

49 



**** ***** ***• 
bEU 

TOMMY 

; TO MANY FIELDS 

4560 s 

H 6 F 2 

M O 

0 0 


A N h L 4 

LDY 

#0 

“ h> i * v 

If ! •* im. 'm/ l.m t 1 

fc -s / { j *» 

B6F4 

98 




TYA 


q SET BUF 0 FLAG 

4580 s 

b6r b 

20 

C5 

lb 8 


JSR 

BUF I T 


4590 s 

B6F r 8 

8 A 




T X A 


GET CHAR 

4600 s 

B6F •/ 

20 

C b 

B 8 


JSR 

BUF I T 


46 1 0 s 

B 6 F C 

6 8 




PL A 


; GET COUNT 

4A?n u 

T w *«* tt 

B6FD 

2 0 

C5 

BB 


J 8 R 

BUF I T 


4d-jO 2 

B700 

48 




PH A 



4 6 4 O s 

B70 1 

20 

BB 

B8 


JSR 

ADOPT A 


4650 s 

B704 

6 8 




PL A 



4660 s 

B705 

20 

Bi 

B8 


JSR 

ADOPTS 

5 ADD TO POINTS 

4670 2 

B708 

DO 

oE 



BNE 

H N ri L... 2 

; ALWAYS 

4690 s 

B70A 

20 

20 

B8 

H 

ANAL6 

JSR 

CON A SC 

; CONVER TO ASCI 

4700 s 

B70D 

20 

$:.r 

!•*/ *»*i" 

B8 


JSR 

BUF I T 


47 i 0 : 

w T 1 f ) 

A**' / 4. *m* 

20 

n C 
»%■« **** 

B8 


JSR 

I NCPTA 

; ADD TO POINT A 

aLL / i : u 

! ,* v i: 

ro *~r i “T 
lb / 4. 

20 

D5 

B8 


JSR 

INCPTB 

; ADD TO POINTS 

4730 s 

B7 1 6 

C u) 

8 i 



DEC 

COLCNT 


4 / 40 s 

B7 1 8 

A Cr 
lid 

81 


H N A L 6 2 

LDA 

COL ON T 


4750s 

B / I A 

30 

0 2 



BM I 

ANAL 6 3 


4760 s 

b / j. L., 

DO 

08 



BNE 

ANALDN 


4770 s 

07 i rr 
/ 4. lb. 

L. £} 

80 


k u » j / **n* 

HNhLfio 

D E C 

ROWCNT 


4780 s 

B72U 

*'T 

20 

07 



BM I 

SETFLD 


4 / 9 O 2 

H 7 v* / 

A 9 

28 



LDA 

# 4 0 


4 R O O *• 

T W v* |i 

b / H- 

8 b 

81 



ST A 

COLCNT 


48 1 0 2 

«.. i ***** w. / 

b / o 

40 

A 7 

!*••{ A 

A**’ U/ 

ANALDN 

JMP 

AN A LOP 

; DONE!! YET 






«! 

s ROUTINE TO 

TEST FIE 

1 nq 

4850 s 

b / o / 

A 9 

00 


fl 

bb iFLD 

L D A 

#0 


4860 2 

p "7 O P 
a.. 1 / .i:.. D 

20 

..... 

L.w w 

BB 


JSR 

BUF I T 

; TWO ZEROS AT END SCRN 

,n .♦ w . »*•? ,*♦. 

4 b / U s 

»•. £***• 
b / o' 1 :::. 

20 

j:;," 
>....• V.J 

B8 


JSR 

BUF I T 


4890: 

mm ***** ***** a 

b / 2 1 

r"i .i:i. 

19 



LDX 

#25 

; NQ FIELDS 

4900 : 

*,~*. *“J* “**t* 

b / 22 

lid 

1- B 



LDA 

"]•• Fjvjppj 

2 GET FIELD COUNT 

49 1 0 2 

■p "7 o 

F0 

O 6 



B E:. U 

AN A ERR 



4 9 2 O 

V”. "*v *~r ***v 

b / •.;* / 

tM* ••*• 

U 9 

3D 



CMP 

# 6 1 S hi A X h J. b. L 1.) S 

4930 s 

ft f o 

JD / -2 s 7 

9 0 

07 



see 

ANAuK 

4 7 4 U O 

b / -J* b 

M si. 

1 A 


TO M NY 

LDX 

#26 ; TO MANY FIELDS 

4950s 

B73D 

2 0 

BC 

B 9 

AMAERR 

J SR 

MESS AG 

4960 s 

B 7 4 O 

•*r 

O o 




S 1:2 1...- 

; (50 DESIGN 

4970 3 

B74 1 

6 U 




k 1 S 


4990 s 

rj ~y ft 
b / *T a2 

TO 

4.** ’*** 

f- nr 

W ***** 

B8 

J! 

ANA0K 

JSR 

BUFIT ;SAVE #FLDS 

^Innn « 

****** •**• *«■ is 

B745 

H MM 

A v 

01 



LDA 

#1 ; ADD 1 FOR EXTRA BYTE 

=;o 1 O " 

W X a 

B747 

>»** ** 
4-U 

***** ***** 
b ._‘ i 

ft f 

bo 


JSR 

A n 'p r L 

KrptfPt 

•. J U all U u 

b / 4 h 

AD 

0 1 

Cr 


LDA 

RECLEN 

***** •• ***** *• 

5 i ! %/ } n 

r*. -v *n t*\ 

B / 4 D 

20 

C5 

B 8 


JSR 

BUFIT 

5040 » 

B750 

AD 

i “i ^ 

*»• 4m 

CF 


L. D A 

RECLEN-4- 1 

***** ** ***** *« 

; i‘ I * — t !* ) « 
w w n 

**•♦ ***** ***** ***j‘ 

b / ■„ j -J:' 

20 

*!•** *** 

7***» J* M ‘ 

C5 

B8 


JSR 

BUF I T 

:•••• 

•*“ii ! ,•■ i i " 
w **** / *.*• a 

B756 

jrt, 

n s... 

00 



LDX 

#0 : Z E R 0 F I E L. D N U M B E R 

; j : , tM , f i || 

JvOv S 

*••• ***** ***** •**• 
i-4 ? — , 

.%*.’ / W w 

86 

08 



b 1 X 

N A M L E N 5 Z E R 0 P R E V F I L E N A M E 

50^0 « 

*•** ***** ***** •« 
B75A 

L‘“ O 
***** -*** 



ANA0K 1 

I NX 

; GET FIELD NUM 

5 1 00 ; 

B75B 

*• 

i i 

O J*“! 




TX A 


5110s 

B75C 

20 

C5 

B8 


JSR 

BUFIT 

***** • # *Mi **^ 

1 5 •«’ ! 1 » 

w X -u. v n 

B75F 

A 9 

B 1 



lDA 

#'4>B 1 5 REV ? 1 - 1 SPACE 

5 1 30 s 

B761 

t n 

*I*M *-♦ 

C5 

B 8 


J SR 

BUF I T 

5 1 40 1! 

B / 6 4 

H*m M 

I*** ■*» 4* 

FB 



CPX 

T E M P F L ; TO F I E L D N U M B E R Y E T 

5 1 50 s 

B 7 66 

»♦* *4^ 

DO 

F2 



P: KJ p 

ANAOK 1 

5 1 70 ; 

B768 

A t** H i 

M ’7 

00 


H 

LDA 

#0 

5 i 80 s 

B76A 

20 

per 

Ov iJ 

B8 


JSR 

BUF I T ; LEFT M ARG I N- ’ 0 

I: ~" i Qn * 

****.- 4- *‘ V tt 

B76D 

/% ft 

H '7 

0 1 



LDA 

#1 

l*' 1 * .****• .*% »**. 

p { y ( i < i « 

B76F 

20 

C5 

B8 


.7 CP 

W %**W I \ 

B U F I T 5 L I N E S B E T W E E N R E C - ? 1 

^ V 1 n <: 

•p “7 “T 

JD / / jL 

A ft 

H 7 

*m‘ *»* 



L L- 5 H 

#0 

“j 7 P O “ 

W 4*** *1... ■«* II 

P 774 

91 

f*l .**, 
20 



ST A 

(BUFPTR) , Y ; ! 0 IS STRT OF RE CD 

5240; 

B776 

A 5 

70 

*i... 


H 

LDA 

BUFPTR ; GET END OF SCREEN 

***** ••** ■***. H 

l *“. i ) n 

V*W 4*** %**» ’•*’ W 

B77S 

A 4 

V 



LDY 

BUFPTR+ 1 

‘5'7'AO •-* 

*.**.* 4*.* I*** 1 ***• 4 

B7 7 A 

Q T 

3 1 



f - f 
O 1 M 

PBbREC ; Sk.l BEG RECORD 

r»* —v .**. 

.*■ / f ) « 

W 4m *• W 

p “7 “7 p 

84 

”T ,*•••, 



S Y 

PBGREC+ 1 

3**** /**•* 

5^60 s 

B77E 

f i n;:; 

O •„ J 

2D 



SI H 

PLSREC ; SET LAST RECORD 

5^:90 u 

B780 

84 

?F 
•!»♦* •***• 



STY 

PLSREC+ 1 

5300 s 

P T O T 

85 

***** --*** 

0» 0* 



ST A 

PCRREC ; SET CORRECT RECORD 

53 1 0 s 

••*» ***** M** M 

b / b 4 

84 

“T .*1 

. 4 



STY 

PCRREC+ 1 

***** •»*** **** *♦ 
c "i .-‘i j » 

B786 

L** a*. 
!*•** ****** 

07 



I NC 

WARM 3 SCREEN DONE 

5330 s 

B788 

1 8 




♦*♦♦ 1 **n 

Lm* ***** *«■••* 


5340; 

B789 

6 0 




RTS 


5360 s 

B78A 

A f 

ri j :l 

j **n* 

I -J!* 


H 

MEMORY 

LDX 

#19 MEMORY AVAI . . . 

T ”7 ft „ 

‘h * 1 / *..* It 

ft "7 ft f 

b / o L- 

20 

BC 

¥♦*. p*. 

D7 


JSR 

ME SB AG 

5380 s 

***♦ ***** **»» ***** 
B 7 bF 

r. T‘ ; 

A j.-:. 

1 8 



LDX 

#24 

<;;;■ 

i ■. -y i i 

B79 1 

A 

14 



LDY 

#20 

5400 s 

b / V J* 

1 P 

4* W 




CLC 


54 1 0 s 

B 7 9 4 

?o 

Om> V 

F 0 

F 1 - 


JSR 

PLOT 

5420; 

P7Q7 

A*«* •“ St 

f ft 

■_:> o 




C; L7 p 

***** ***** ***V 

5 FIND # OF BYTES LEFT 

5430s 

..... ...y ...... ..~. 

b / 7 Cj 

nr 
H -..J 

« »**» 
.Jj / 



LDA 

T OPR AM 

5440 s 

B79A 

E5 

9Fi 

4m* £*** 



SBC 

PLSREC 

5450 s 

B79C 

OvJ 

•* ** 
»•*•* tl*.. 



S 1 A 

POINT A ; PUT NUMBER OF BYTES 

5460; 

B79E 

A 

HJ 

T t 0 



1 I J f"i 

TOPRAM+l 5 INTO POINT A 

5470 s 

B / A L- ! 

j.... 

•t {:::• 

*sL. 1 .*** 



SBC 

PL SR EC + 1 

5480 s 

R7A“ 

i .. 1 .'it j**> 

ft !!"• 

O j 

T T 

J... •».’ 



*•*• ***** ** 
6 i A 

P U I N 7 A 9 - 1 

5490 s 

ft **7 

b / hi*+ 

A f. 

mL? 

01 

CF 


LDA 

R E C L E N s DI-VI D E BY RFC 0 R D L E N 

5500 s 

***** *• ***** 
B / / 

A L, 

02 

CF 


LDY 

RECLEN+1 ; IN POINTS 

5510; 

B7AA 

8 5 

a::! 4 



s r a 

POINTS 

55~0 » 

****** H*/ *•«*• r% ' *1 

B7AC 

84 

2 o 



ST Y 

POINTB+1 

5530 : 

B 7 h E. 

20 

***** *•** 
r o 

f : *“? 
/ 

***♦ * 


J SR 

SUB RAT ; RESULT IN POINT A 

5540 ■* 

B7B1 

A 9 

IJlJ 



LDA 

#0 

***** ***** ***** *• 

5 5 u U s 

B7B3 

8 5 

/ .J 



ST A 

TEMP 

5560 s 

**•• ***** •*** »•••• 

B / B t 

A » 

07 



LDX 

#7 5 DIVIDE BY 10000, ETC, 

5 5 to »= 

a .J .* •**• H 

**♦» ***** ***- ***** 
b / b / 

BD 

F 0 

”* V 
b / 

MEMRY 1 

LDA 

SUBTBL, X 


EH! !•“' C.J i"\ a 
*_J w -J a 

B7BA 

r> r~* 
O- * 

24 


va*a aa 

d 1 ft 

PO I NTB 

ft ft W i ! » 

B 7 BC 

C A 



DEX 


5600 2 

B / bD 

BD 

|t«M ( »* 

F v 

r'l ”7 

b / 

b D ft 

SUBTBL ? X 

56 1 0 ii 

B7C0 

Q ft 

-.J 

2 h 


ST A 

PO I NTB+ 1 

— « .* ! 5 « 

hTPv 

PA 

o o 

7 A 

4 w 


87 X 

TEMP 2 2 SAVE ? X 

5630 s 

v;;. ***? f- 

/ L- 4 

m* h 
20 

Fb 

a... 

b / 

JSR 

SUBRAT 

5640; 

■|^ uni 

JL ’’ # w i 

A 6 

76 


LDX 

TEMP 2 ; RESTORE 11 X 

5650 s 

B7C9 

A UT 
A -..J 

*“7» 

4 ♦" 

4m viva* 


L. D A 

PO I NT A 

5660 s 

B7CB 

09 

30 


□RA 

#$30 

mn • tttn »• 

□ 6 / U 11 

B / u i j 

O 9 

30 


CMP 

#$30 

5680 * 

r:< t p p 
/ L! 

DO 

08 


BNE 

HENRY 2 

5690 u 

B7D 1 

A 4 

75 


LDY 

TEMP 

"*•» UM< *• U 

^ / f )f i “ 

w / 'm* *-»• a 

B7D3 

DO 

** • 
U6 


BNE 

HENRY 3 

b / 1 u s 

B7D5 

A 9 

20 


b D ft 

#" " 

"7 •" fi « 

W / jLm ’«* U 

B / D / 

DO 

O'? 


BNE 

ME MR Y 3 5 ALWAYS 

r*" ,M ? ***r 

D / ■ U 2 

B7D9 

E6 

••7 cr 

/ V.J 


MEMRY2 INC 

TEMP 

5740; 

B7DB 

20 

16 

***•• *»«» 

E / 

HENRY 3 JSR 

SCROUT 

5 750 2 

B7DE 

A nr 
hi J 

1 4 


LDA 

INTGER ; GET REMAINDER AND 

ft "7 .ft ft « 

w ; '.•* v 

B7E0 

ft 4 

15 


LDY 

I NIGER 4- 1 

r* •••* ***t 

** , ’j / -** : : c 

W / **♦* U 

B7E2 

cr 

O vJ 

vlvvv fl»»l 


0 1 }~i 

F' 0 1 N T A ; P U T I N T 0 P 0 1 N T A 

*•**• •***? .**, 
5 / bU 2 

B7E4 

84 

V”7 

4*.v ■m* 


STY 

PO I NTA+- i 

:™ "7 Q {*•) 

B7E6 

f"* A 

L- H 



DEX 


5800 ii 

b / ir. / 

10 

rp 

w »•••• 


BRL 

MEMRY 1 

58 1 0 2 

t**; ~r r*** o 
b / b *7 

a cr 
Hj 

«4*»« 4m. 


LDA 

P 0 1 N T A 2 P R I N T R E M A I N D E R 

"*•. K.J ' - 1 s' ‘l n 

■JD4.U u 

7**. **n r— */**, 

12* / fc. JD 

J! Q 

30 


ORA 

#$30 

5830 2 

B7ED 

4 U 

16 

...a* aaa V 

L / 

JHP 

S C R 0 U T s P R I N T I T A N D R E T U R N 

5850 s 

b 7 b U 

00 

'•j ft 


SUBTBL » BYT 

$00, $0 A 2 10 

5860 2 

B7F2 

00 

6 4 


aaaa a a aaaav 

.BY! 

$00 ,, $64 2 1 00 

5870 2 

B7F4 

0 3 

E 8 


7”» \ / T" 
t: JU 1 r t 

$03, $E8 5 1000 

5880 ;i 

b / b 6 

"7 

4h< * 

10 


a BYT 

$27. $10 ; 10000 






; ROUTINE TO 

16 BIT DIVISION 






5 POINT A = DI 

VI DEND 






; POINTB = DI 

V I SOR 






; PC I NT A = RE 

:sult 






; INTGER = RE 

!MA I NDER 

SQ7f') *■■ 

W / 4- %/ fc 

B7FQ 

AC 

H 7 

00 


!» 

S U B R A F L D A 

#0 

RQRO » 

B7FA 

***» **«•• 

dwi 

14 


ST A 

INTGER ; ZERO TEMP DIVEDEND 

5 9 9 O 2 

B7FC 

““ cr 
O -.J 

15 


ST A 

INTGER-i-1 

6000 2 

B7FE 

ft .ft 

10 


LDX 

#16 5 16 BITS TO DIVIDE 

60 1 0 2 

B d u o 

***• * 
2 d 

s-~, 


SUBLOP ROL 

POINTA ; ROLE ONE BIT 

6020 2 

8802 

r? a 

4m LJ 

r** % **:*♦ 


ROL 

F : 0 1 N 1" A 4 - 1 5 I N T 0 T E M P D I V I D E N D 

6 V c*' O 2 

B 8 ! -j 4 

4m 

14 


ROL 

INTGER 

6040 2 

B 8 o 6 

26 

^ »*••• 

J. U 


ROL 

I NT GEE 4- 1 

6050 2 

BBC 8 

“T Q 



SEC 

2 D 0 7 R I A L 8 U B T R A C 7 

6060 2 

BBC 9 

a. nr 

A 

14 


LDA 

I NTGER 

6070; 

B80B 

E5 

/| 

*+ 


SBC 

PO I NTB 

6080 2 

BBUD 

A : **"*x 

Ho 



TAY 

3 SAVE LOW ORDER 

6090 s 

b d U b 

A 5 

•i tr- 
I \.J 


LDA 

I NTGER 4* 1 

6 i 00 2 

B8 1 0 

E5 

•“ ir- 


SBC 

POINTB+l 

6 1 1 U 2 

B812 

9 0 

(_) 4 


BCC 

SUB DON ; NO GO- NOT BIG ENUF 

6 1 20 2 

B8 1 4 

id 4 

14 


STY 

I N T G E R 2 0 K S A V E R E S U L T 

6 1 30 2 

B 8 i 6 

rjj cr 
O -...J 

•; cr 

ala *mi 


STA 

INTGER+l 

6 1 40 2 

B8 1 8 

L ft 



SUB DON DEX 

; 16 BITS YET 

6 i 50 £ 

B8 1 9 

no 

/m' V 

E 5 


BNE 

S U B L 0 P ; N 0 - G 0 A 6 A I N 

6 1 60 2 

B8 1 B 

26 

7*‘ v 

4*»v 4*** 


ROL 

POINTA ; ROLE LAST CARRY IN 

6 1 70 2 

B S i D 

1 .::; 6 

.uL -..I' 


R U L 

POINTA+ 1 s F 0 R Q U 0 T I E N T 

6 1 SO 2 

rj ci> -i r*“ 

bb I r 

60 



RTS 


6200s 

to o ■" 

i.. ! O .i;.. 




a FILE 

: 8 , n FILER - PAL END” 






5 LAST PART L 

)F MICROFILER 






: ROUTINE TO 

CONVERT SCREEN CODES 







: r U A 

(I 

SC I I 


1 50 « 

BS’EO 

C9 

20 


? 

L.- U i v, hi i.„- 

CMP 

#** 11 

1 Am « 

4* W '#• a 

■fi n ■’■"’i ”"1 

b 0 jl. 

B0 

O 4 



BCS 

A SC I 1 

i 7 0 s 

bo^.4 

09 

4 0 



ORA 

: i : j : :E 4 f -.j 

1 SO s 

■p 0 r> a 
0 0 ^ 0 

DO 

14 



BNE 

CONDON 

i 90 2 

****^ »HI UM ^U*t 

B b 4 0 

C9 

40 


A 8 C I 1 

CMP 

# 55 @ '* 

200 2 

np")A 
b C.> H 

90 

1 0 



BCC 

CONDON 

7* 1 r”) «> 

J — 4. u 

pq-r 

A.. 1 LJ .U. ***** 

C9 

60 



CMP 

#$60 

r— . 

/ X ! * * 

Jttt it»*« B 

T"i n rr 

B0 

O 4 



BCS 

ASCI 2 

•. i i “ 

*u*. *«. 1 *-* ii 

'Cj O **? A 

B 0 U 

09 

80 



OF; A 

#$80 

240 s 

y, Q .““ s 

b Q ■—.* 4 L 

DO 

08 



BNE 

CONDON 

250 n 

r*. 0 ~r /[ 

boo H 

p Q 

80 


AbC I 2 

CMP 

#$80 

260 .1 

Babb 

B0 

04 



BCS 

CONDON 

7 ”7 f) « 

88-38 

7 O 

4(m / 

3 F 



AND 

#$3F 

2 SO 2 

B83A 

09 

80 



ORA 

#$80 

290 2 

«•••*. ***r ,**•*. 

b O b w 

60 



CONDON 

n 

RTS 







* 

; ROUTINE TO 

>1 

CLEAR SOUND CHIP 

330 s 

BS3D 

A 4 

18 


« 

CLRSND 

L D X 

#24 

340 s 

BS3F 

ft 

H 7 

00 



L... D f’i 

#0 

750 « 

B84 1 

9D 

r > 0 

*M *•* 

D 4 

CLRSN 1 

b i H 

SOUND ,, X 

bSO 2 

B844 

CA 




DEX 


••. /■ 1 i » 

•...• V II 

B845 

« *• 
i 0 

FA 



BPL 

0 E R b N 1 

T O A n 

•:>oU 2 

B847 

60 



it 

F r <TS 




i 



ff 

; BIF : ' 

SOUND - 

» BETWEEN FIELDS 

4 7 O •> 

^ M— *-* u 

B848 

7 O 

j— *** 

3D 

B8 

" 

Y”: T r“: 

b 1 r 

J8R 

CLRSND 

fl "T ,*•„ 

4~>U 2 

Bd4B 

Hr 

02 



L D h 

#2 

440 2 

BE? 41) 

8D 

05 

D4 


Bin 

SOUND- + 5 

450 2 

B850 

A O 
h*i 7 

08 



L D H 

#8 

460 2 

B852 

8 D 

18 

D4 


■:::< I H 

SOUND+24 

470 2 

boob 

A 9 

25 



EDA 

#35 

480 : 

B857 

SD 

0 1 

D4 


ST A 

SOUND + 1 

490 2 

B85A 

A V 

2 1 



E D A 

#33 

500 2 

B85C 

8 D 

1 , i a. j. 

D4 


ST A 

SOUND +4 

5 i O 2 

B85F 

A 2 




EDX 

#50 

cr a „ 

B86 1 

20 

B3 

..... ..... 

*•*• j*** 
***** !•*** 

BIF'LF' 

J S R 

DEL 1 Mb 

530 - 

B864 

CA 




DEX 


540 2 

B865 

DO 

FA 



BNE 

B I PLP 

550 2 

El do / 

A 9 

70 



EDA 

#32 

560 2 

B869 

8 D 

04 

D4 


*“*. * 1 ** r. 

b i H 

SOUND+4 

r*m ihm n 

57u 2 

b‘ 8 oC 

60 



q 

RTS 







? 

-**» .*•** ***** MM 

2 bhbr 

u 

' SOUND 

ERROR 

6 i 0 2 

B d 6 D 

20 

3D 

B 8 

» 

ptrpp 

MM HIM ftlM 1 

JSR 

CLRSND 

/-V .■ 1 i “ 
W 4. m *..* tl 

B870 

A 9 

09 



LDA 

#9 

£>.-*0 2 

B87 2 

80 

05 

D4 


ST A 

SOUND- +5 

64 O 2 

B875 

SD 

06 

D4 


ST A 

SOUND +6 

6 So 2 

B878 

A 9 

OF 



LDA 

#15 

66 U 2 

B87 A 

8 D 

1 8 

D 4 


ST A 

SOUND+24 

O / O 2 

B87D 

A 9 

-? 6 



LDA 

# 1 50 

680 2 

r-i rn **7 r~ 

b 0 / r 

90 

W 4**/ 

00 

D4 


ST A 

SOUND 

690 2 

rv 0 0 •“ 

Am* ^i**** »!•*• 

A 9 

06 



E D A 

#6 

"7 n r* « 

.* *«* •«* * t 

BBS 4 

8 D 

01 

D4 


3 T A 

SOUND + 1 

710: 

B887 

A r~i 
M 7 

2 1 



EDA 

#33 

720 . 

/ »Im» **•* II 

B889 

CD U 

04 

D4 


ST A 

SOUND+4 

MM* 

/ oU 2 

BSSC 

H uL 

F F 



EDX 

.Li, rr n:r 
Tr a.".. '..J 

740 2 

B 88 E 

7 O 

.In. 

B3 

EE 

BEEPER 

JSR 

DEL 1 MS 

***** ***** .« 

/ ) » 

/ %' 81 

B89 i 

tW* 

U R 




DEX 


760 2 

B892 

DO 

F A 



BNE 

BEEPER 

7 / U 2 

B894 

** **•* 
A 9 

20 



EDA 

#32 

780 2 

B896 

8 D 

.*♦, .n 

‘■j ,; t 

D4 


MM. ••••* •• 

b i H 

SOUND +4 


7 P 0 M 

T-; !“”j w w 

60 




R i b 







H 

j ROUTINE TO 

CONVERT COLOR CODES 






;; TO A 

SCI I 


840 s 

B 8 9 A 

?Q 

4... / 

OF 


f! 

CLRC0V 

AND 

#$0F ; CONVERT COLOR 

850 s 

B89C 

AA 




TAX 


860 : 

B89D 

BD 

Ai 

B 8 


L U Pi 

CLRTBL, X ; TO ASCII 

870 s 

BSA0 

60 




RTS 


poo - 

W / * r*’ n 

B 8 A 1 

9 U 

** •••*• 

O o 

1C 

CLRTBL 

. BYT 

144,5,28, 159, 156, 30 

900 s 

doH/ 

1 F 

9 E 

81 


« By 1 

31, 158, 129, 149, 150, 151, 152 

9 1 0 s 

B 8 AE 

QQ 

O A 

/ hi 

r~» T**i 

/ b 


. BYT 

153, 154, 155 

930 s 

B 8 B 1 

1 8 



? 

ADDPTB 

MM ( I «M f 

L/ Imm L./ 

S ADD TO POINTS 

940 n 

B8B2 

65 

,**n « 

.u #, f 



r, 

hi U 

POINT’D 

950 s 

B8B4 

85 

24 



ST A 

POINTS 

"/ £j U u 

B 8 B 6 

9 U 

07 

V 4-. 



BCC 

APTBDN 

w / i. i ;; 

• •* "h* tl 

B 8 BS 

M**» f » 

I;::. o 

7 S 

»t.w 



I NC 

F'O I NTB+ 1 

V 8 >:_) s 

B 8 BA 

6 O 



APTBDN 

RTS 


1000 : 

B 8 BB 

IS 



*» 

ADOPT A 

*M* * MM ( 

1»*. I.... 

5 ADD TO POINT A 

1 0 1 0 s 

B 8 BC 

65 

■~y> 

tt»w visa. 



ADC 

PO I NT A 

1020 : 

B 8 BE 

85 

7 7 

4... 4**. 



ST A 

POINT A 

i 030 s 

B 8 u u 

9 0 

0 2 



BCC 

APT ADN 

1 040 2 

BSC2 

E 6 

r* { "T* 
4... ".*a^ 



I NC 

POINTA+1 

1 o 5 O “ 

B 8 U 4 

60 



AFT ADN 

RTS 


1 O 7 O 2 

a. 'm* v a 

B8C5 

91 

20 


* 

BUF I T 

ST A 

( BUFF'TR ) , Y ; STORE AND 

• ** **t* ♦* 

1080: 

BSC '7 

Ei 6 

20 


I NCBUF 

INC 

BUFPTR 5 INC BUFF'TR 

1 090 2 

B8C9 

DO 

02 



BNE 

I NCDON 

1 100 : 

B 8 CB 

r— *• 

i:i o 

21 



I NC 

BUF RTF: + 1 

i 1 1 0 2 

B 8 CD 

60 



I NCDON 

r*« t* 4 ““ 

K 1 b 


1 1 30 2 

B 8 CE 

Ei 6 

"T ***** 

b b 


I NCF'CR 

INC 

F'CRREC 

1 140: 

B8D0 

DO 

02 



BNE 

I NCCRD 

1 1 70 ** 

i. 4. 1m. 1 V U 

BSD 2 

Li O 

T /I 
•m. S 4 t 



INC 

PCRREC+ 1 

1 i 8 u 2 

BSD 4 

60 



INC CRD 

RTS 


1 1 8 0 s 

BSD 5 

Ei 6 

-***: /I 

ai 4 


I NCPTB 

I NC 

POINTS 

1190s 

B8D7 

DO 

02 



BNE 

INCBDN 

1 200 s 

BSD 9 

E 6 

K"' 



INC 

F'O I NTB+ 1 

i M 1 n 

1 y... J. a 

BSDB 

60 



1 NCBDN 

RTS 


1 2 bU s 

B 8 DC 

E 6 

”'4 M 


INCF'TA 

INC 

PO I NT A 

1 240 2 

BoD E 

DO 

02 



BNE 

INC ADN 

1 250 s 

B 8 E O 

£> 

4.M O 1 



I NC 

POINTA+1 

1260 : 

BSE2 

60 



INC ADN 

RTS 


1 v.Qn - 

4. Am W a 

BSE 3 

J Ml*. 

18 



A DR E CL 

■ L_ W 

; ADD TO F I ELD LENGTH 

1290: 

bob 4 

6 D 

01 

CF 


ADC 

RE GLEN 

1 300 2 

B8E7 

8 D 

0 1 

CF 


STA 

RECLEN 

1 3 1 0 : 

B 8 EA 

*7 U 

03 



BCC 

ADRECD 

1 770 •« 

B 8 EC 

p P 

02 

CF 


INC 

RECLEN+ 1 

i T "7 f"i ti 

BSEF 

60 



ADRECD 

RTS 







fi 

; ADD 

RECORD 

LENGTH TO -F'CRREC- 






; AND 

TEST FOR END OF RECORDS 

1 380 : 

BSF 0 

18 



* 

ADDLEN 

CLC 


1 390 s 

B 8 F 1 

AD 

01 

CF 


LDA 

RECLEN 

1 400 2 

B* o I - " 4 

6 5 

M.J. »HJ4 

•2* 'J* 



hi U L- 

F’CRREC 

1 4 1 0 : 

B 8 F 6 

A 8 




TAY 

; SAVE LOW ORDER 

1 420 s 

B 8 F / 

A D 

02 

CF 


LDA 

RECLEN + 1 

1 430 s 

B 8 FA 

A 7 
O w 

34 



ADC 

PCRREC+ l 

1 XL A f ) « 

B 8 FC 

La# iJ 

? !*•* 



CMP 

PLSREC+ 1 


i 4 5 n - 

J* 1 W ’n* a 

BBFE 

W 1 j 

06 



p i - f“* 

Am* nn* 

rDDLOK s LESS ! HAN 

1 460 !; 

'B 9 0 0 

DO 

08 



BNE 

A D D L D N |i G R E A T E R T H A N -END 

: aJ. / ; ! « 

4. t / JJ 

PQfiT 

Am i '» tin* 

C4 

2D 



CRY 

PL SR EC ; LAST RECORD 

i 4 SO i; 

B904 

B0 

04 



BCS 

ADDLDN : AT END 

1490: 

B906 

84 

A to 


A DDL OK 

STY 

F'CRREC 

1 500 s 

B 9 O 8 

"••j {”•• 

CJ . i 

IMI MU 

•*jr /! 

-.I' 1 *T 



ST A 

PCRREC+ 1 

i 5 1 0 : 

B9oA 

• M 

60 



ADDLDN 

r* : *r* 

H 1 T 

I • I *tt* 

U’C IS END FLAG 






3 SET 1 

IF' VIDEO CHIP & POINTERS 

*! KIT i"."' 

4. U u U !; 

B 9 O B 

A 9 

IB 


Ji 

SETVID 

j r\ /*-. 
LL’h 

#$ i B 

1 560 5 

B90D 

SD 

1 1 

DO 


to i A 

VICM0D 

1 570 s 

B 9 1 0 

A 9 

cs 



L U H 

# % ( J s 

1 SRf) - 

X MW' *«* it 

B 9 1 2 

8 D 

16 

DO 


ST A 

V I CM CM 

1 590 s 

B915 

A 9 

2u 



L- D H 

#$20 ; SON $0800 - CHR $000< 

1 600 s 

b - 7 i / 

8D 

1 to 

Do 


ST A 

V I CSCN 

i 6 i o 2 

B91A 

A 9 

00 



LDA 

#0 

i a r? O « 

J. W .1... a 

B9 1 C 

8D 

15 

no 

Alt* M 


It**, IMI ,U, 

ST A 

SPR I TE 

1 630 2 

B9 1 F 

8D 

1 A 

DO 


"T" 

to i hi 

V I C H S K ; N 0 V I D E 0 I R Q 

1 650 2 

72.: Q 

JL> 7 jL -lU. 





. IF 

CART- 1 

1670s 

RQTT 

A 9 

50 



L 13 H 

#< LOOP 

1680: 

B924 


A0 



LDY 

# >LG0P 

1 690 s 

B926 

85 

X.. li'iu 



ST A 

F'OINTA 

1 700 s 

B928 

S 4 

/•**! "T 



STY 

POINTA+l 

1 7 1 0 s 

B92A 

A 7 

D 2 



LDA 

#< SCDAT A 

- h 

•it / 4.n v a 

DD7p 

JL«* / X.. w 

A0 

BD 



LDY 

# > SCDAT A 

1 7 /SO « 

Ml • *fM II 

to- to T F 

mm* / 4»«« *»M. 

20 

to c:l 

B9 


J SR 

SWEDES' !; ! R Y 10 to WAR ROM 

i 7 50 : 

B93 1 

A 9 

00 


H 

LDA 

#0 s BLACK 

1 / 60 2 

to t •/> •„< 

O r\ 

DU 

T 1 

Xm X 

DO 


P‘. T* .**. 

to i H 

BKGCLR 

j 7 TO • 

B936 

hi T 

0E 



L D h 

#14 : LIGHT BLUE 

1 7 SO ; 

B938 

pn 

O iJ 

20 

DO 


O T A 
1 hi 

BDRCLR 

1790: 

Bto3B 

A O 

l“1 7 

C4 



LDA 

#$C4 

1 800 s 

B93D 

8D 

00 

nn 

At* 


Mt» HIM Jt 

to5 i hi 

VICSEL ; SET VIC TO C BLOCK 

1810: 

B v 4 O 

A V 

C8 



LDA 

# > S C REEN : S C R E E N B A S E 

1 820 s 

'R Q 4 T 

4»i « I Xm 

8D 

88 

o r? 

V’ Xu 


S i h 

H I BASE 

1840: 

B945 





it IF 

uhn r 

1 840 2 

B945 





u GO 

TO i 9 1 0 

1 9 1 0 s 

B945 

A9 

08 



LDA 

#8 ; LOCK KEYBOARD 

1 9 TO * 

X / 4m. H 

B947 

4C 

i 6 

El 7 


JMP 

SCR0UT ; PRINT i< RETURN 

1 w A f ! * 

J. .* 1 a 

B94A 

A 9 

00 


fl 

NEWCHR 

L D A 

#< CHRSET 

1 950: 

B94C 

A0 

DO 



LDY 

# > CHRSET 

1 960 s 

B94E 

to 

22 



ST A 

PC) I NT A 

1970: 

RQ^iT 

/ W *M* 

84 

2 to 



to ! Y 

P0INTA+1 

1980: 

p, O T 

Xtt • *mi •!••• 

M 7 

00 



L D A 

#<NCHRST 

1 990 s 

B t 5 4 

mU 

CO 



LDY 

# >NCHRST 

2000 2 

VU O r “". A 
b 7 -_j o 

85 

24 



ST A 

P0 I NTB 

T o i O c 

B958 

84 

alu ‘..J 



STY 

F0INTB+1 

r ? O V O * 

.Im. '«• 4... v a 

B95A 

/ 8 




MM ***•• U* 

to to. i 


tin it t* 

/U.:-U 2 

B95B 

A 9 

T F 

•ka 1 



LDA 

#$2F : SET DDR 

2040 s 

B95D 

CD . 
to to 

00 



•ri f A 

065 1 0 

2050 s 

B95F 

A9 

o 2 



LE?A 

#$32 ; TURN ON CHRSET 

2060 2 

B96 1 

85 

0 1 



Err a 

R65 1 0 

2070 s 

b V 6 to 

A 

hi A. 

08 



LDX 

#8 ; COUNTER - 8 BLOCKS 

2 0 to 0 2 

■r i C5 / nr. - 
b ‘7 to to 

TO 

MM* '»* 

AB 

fi C“« 
b *7 


T to to 

CQPYBK 

9090 i' 

B 9 6 8 

A :‘*T 

hi *7 

T / 

i »Vn 
t w i Q 



i..„ D hi 

#$36 

T 1 OO “ 

4mi 4- *h* a 

B 9 to A 

Cj nir 

to to 

0 1 



S i H 

R65 1 0 

T 1 1 f") « 

♦U*. 4- X ft 

B 9 to U 

58 




till. *1* 


*7 : i r?o 54 

4^* 4. a**« a 

B96D 

A 9 

El El 



! r 't A 
L.. A..- hi 

#< NEWSET 

2 1 30 2 

B96F 

A0 

BE 



LDY 

# > NEWSET 

2 1 40 : 

B97 1 

85 




Mil Mill It 

ST r 

F'O I NT A 

2150: 

M** M«|- 

to *7 / to 

84 

"■’j ”T 
itu. ‘.u 1 



to I Y 

PO I NT A+ 1 


' MM * * *•, 

2 1 60 s 

r*« o **7 c; - 
b *7 / *~J 

A rj 

hi *7 

0 0 


1 DA 

U... A..* 1 t 

ft • S ' !*“ . «**• * **i 

#<. bwPARn 

z i / v p 

b 9 / / 

A O 

cc 


LDY 

# >SWPARA 

v 1 go « 

t~i r": •••” r“i 

b V / 7 

y**\ r;* 

l ***s . f 

Mil 

74 


ST A 

POINT'D 

’2 1 9 O * 

4»m J> • *** B 

B 9 / B 

84 

f MM 

.* 4 

lilt. Mil' 


STY 

PO I NTB+ 1 

/***. .***♦, 

zzuy s 

B97D 

At 2 

02 


LDa 

#2 ; COUNTER - 2 BLOCK 

7 1 O ■ 

iUt- *!«*■ 4» *• B 

g g 7 p 

•* 

Vi i 

ab ; 

B9 

JSR 

COPYBK 





«! 

; ROUT 

I ME TO 

SWAP TWO CHAR SETS 

*— *, /**•. I***' 

/ s t a 

.Mt> -!••• m»/ ’h’ a 

B982 

/j. o 

r“i 7 

00 

H 

SWAP 

LDA 

#< NCHRST 

vvAn r - 

Jw •....* V It 

B V 8 4 

A O 

C 6 


i r-, n / 
LU y 

# y N C H R s r ■+■ 6 U U 

« 

j:.. a 

B986 

fj r»r 
O -_J 



*■■• *-«• • Mj 

i H 

POINT A 

??R(") « 

»>»*. ll.H MM ‘m* St 

B988 

84 



O 1 T 

PO I NTA+ 1 

2290 s 

B98A 

A 9 

00 


L D h 

#< SWPARA 

2300 : 

B9SC 

A O 

Lr W 


LDY 

# > SWPARA 

r> t j ,•") .. 

B98E 

b u 

24 

SWPDES 

S F A 

POINTS ; DESTROY ENTRY 

™ *T "7 O » 

aU. ‘ .t~. ti 

B990 

a 4 

'“'j 

^ { 


STY 

PO I NTB-i- 1 

"TTn « 

a.. ■•..'• V a 

B992 

A0 

00 


LDY 

#0 

-? a o « 

a... ■«.’ "T v b 

B 9 9 4 

A 2 

0 2 


LDX 

#2 » SNAP 2 BLOCKS 

Ao5U 

B996 

B 1 

"7* 7**% 

j!« Jm. 

SWPL0P 

l. D A 

( PO I NT A ) , Y 

2360 ^ 

B998 

48 



PH A 


MM wM Mm* .**. 

.* % / ] : t* 

B 9 V 9 

B 1 

7*** /t 
ill.. ^1’ 


LDA 

(POINTS) , Y 

Z 3 8 U b 

B99B 

91 

llui lint 


.**”• -r 
:z< i hi 

(POINT A) . Y 

2390 : 

B99D 

6 8 



F L A 


2400: 

B99E 

91 

24 


»*•• MM* ♦» 

b 1 H 

(POINTS) . Y 

2410: 

B9A0 

C O 



I NY 


2420: 

f**. /— * A *| 

ID *7 H I 

DO 

P "T 


BNE 

SWPLOP 

2430: 

dtHo 

E 6 

j2. w» 


INC 

POINTA+1 

2440: 

•p O A, R 
D 7 !’”i -..J 

E6 

cr 


INC 

PO I NTB+ 1 

2450: 

B9A7 

C A 



DEX 


2460 S 

IB 9 A b 

DO 

EC 


BNE 

SWPLOP 

V 4 "7 O 2 

B9AA 

60 


ft 

r< 1 b 


2490: 

B9AB 



ti 

» I F 

CAR r 

2490 s 

B9AB 




. GOT 026 1 0 

2 6 1 O « 

BtAB 

AO 

00 

C0PYBK 

LDY 

#0 |1 COPY p X BLOCKS 

2620 s 

B9AD 

B1 

v 

J.M *1**1 

SET LDP 

LDA 

(POINTA) ? Y 

2630 s 

B9AF 

91 

24 


*“*. **t“ /*. 

O * Hi 

(POINTS) , Y 

2640 s 

B9B 1 

C8 



I NY 


2 6 5 U « 

B9B2 

DO 

Am’ V 

P9 


BNE 

SETLOP 

- A A * j “ 

B9B4 

E6 

, ";v 
all. 


I NC 

PO I NT A+ 1 

2670: 

B9B6 

E6 

-.p 

•t.». *n»t 


INC 

PO I NTB+ 1 

2680 s 

B9B8 

C A 



DEX 


2 6 9 O u 

B9B9 

DO 

cr 

: <i — 


BNE 

SETLOP 

2700 s 

B9BB 

60 



RTS 






f 

; ROUTINE TO 

n t c p \ a v m g g a f * p g 

ii* *«* •*•*«* j Imm 1 5 I t L. Vmi 1mm 1 1 »M* *»♦»» ^ 





fi 

* X RE 

EG IS MESSAGE NUMBER 

2760s 

B9BC 

A 9 

r” 

'7 

MESS AG 

L D A 

#< MSGTBL 

2770 s 

B9BE 

A 0 

BA 


LDY 

# > MSGTBL 

?7flO » 

B9C0 

er 
O „j 

24 


STA 

PO I NTB 

“ “7 w a k 
xL / 7 U £ 

B 9 U 2 

b 4 

•“A 1“!* 

xLU 


STY 

PO I NTB+ 1 

2800 s 

B9C4 

v O 

4.M r M* 

/ c 

per 

DJ 

J SR 

BLKOFF 

28 1 0 s 

B9C7 

E6 

cc 


INC 

B L I K S W ; T U R N 0 F F C U R 3 U R 

r*. i"*. , ,m , ,**, 

.•* .•* i i n 

jttt Im/ Jm. v* n 

B9C9 

H O 

00 


LDY 

#0 

MM »»*♦• •* 

.U 'mm 1 'Mi* V H 

B9CB 

0 4 

C7 


STY 

REVFLG 

2840 s 

B9CD 

L H 


MSB 1 

DEX 


2850 s 

B V L h 

F0 

OF 


BEQ 

MSG FT 

2860 s 

B9D0 

B 1 

xi. 4 


L D r 

(POINTS) ? Y 

2870 s 

B9D2 

29 

7F 


AND 

#*7F ; MASK BIT ’ 7 

V g g j‘ } » 

B9D4 

18 



»t* 1mm V*»»* 


2890 s 

B9D5 

65 

V 4 

*t*M t 


A D U 

POINTS 

2900s 

B9D7 

qn; 

w 

Z 4 


b7 A 

POINTS 

vQ 1 O « 

R9D9 

/*\ 
~7 .' 

p r> 


BCC 

MSG 1 


j.i. t -*-** '-* a 

B9DB 

p A 

* 2TI 
***** ***** 



INC POINTB-H 

» 

2930 s 

B9DD 

B0 

HHl fl*H 

CL CL 



BCS MSG 1 

2 ALWAYS 

nncn a 
aL 7 JU a 

B9DF 

A 2 

00 


MSGPT 

LDX #0 


a;.'. 9 O U a 

B9E 1 

Bi 

24 



L.DA (POINTS) 

? Y 

vP7 n « 

B9E3 

10 

\j 4 



BPL MSGP 1 


■7* Q p A a 

B9E5 

r*** 

OJ 

***** t**»* 

{••• IH* 



STA ME36FL 


v Q Q n •* 

4»~ • * n 

b t Cl / 

A 

hi A 

1 R 

4. W 



LDX #24 


3000 s 

B 7 E. 9 

•* Aj? 

J..« / 

7F 


MSGP 1 

AND #$7F 

5 MASK BIT 11 7 

30 1 0 s 

B9EB 

{***» 
8 b 

81 



STA C0LCNT 


3020 s 

B9ED 

C8 




I NY 


■jUjO a 

B9EE 

Bi 

24 



LDA (P0INTB) 

? v 

•«'U4U a 

B9F0 

/! A**: 

*+o 




PH A 

; SAVE START 

3050 £ 

B9F 1 

10 

04 



BPL MSGP 1 1 


"T 

••.! !.*«.* I « 
*J V...* •**• u 

o r~ “?• 

f— v h •. 

A-- J- ! V 1 

A 9 

05 



LDA #5 

; WHITE 

*’T .•*. ***V .**. 

■:<U / O s 

B9F5 

DO 

O p 

** *i»*' 



BNE MSGP 2 

S ALWAYS 

•:-u8u » 

B9F” 7 

A 9 

c;> p 


MSGP! 1 

LDA #159 

*4 CYAN 

3090 n 

99P9 

On 

»tl~ 

1 6 

..... ■•** 

E / 

MSGP 2 

JSR S GROUT 


3 1 00 s 

B9FC 

68 




PL A 

: GET START 

3 1 1 0 s 

B9FD 

48 




PH A 


3 1 20 2 

B9FE 

r*\ ***\ 

7 

/ r 



AND #$7F 


3130s 

BA 00 

84 

so 



STY R OWC NT 


3 1 40 : 

BA 02 

A8 




TAY 


3 1 50 s 

BA 03 

18 




CLC 


3 1 60 ; 

BA04 

20 

p 0 

p p 


JSR PLOT 

; POSITION CURSOR 

3170s 

BA07 

ft 

p*| 4*1* 

80 



LDY R OWC NT 


3 1 SO s 

BA09 

C 8 




I NY 


3 i 90 s 

B A U A 

Bl 

A 4 


MSGP 3 

LDA (POINTB 

) n Y 

3200 2 

BA0C 

10 

04 



BPL MSGF‘4 


32 1 0 £ 

BA0E 

*•** 

*7 

■bH / 

**»j* ***•• 

j »♦" 

*• i 



AND #^7F 


3220 s 

BA 1 0 

u*M • 

el &5 

C/ 



I NC REVFLG 


3230 s 

BA 1 2 

20 

1 6 

E7 

MSGP 4 

JSR SCR OUT 


T A. A ■« 

. 1 ... "T a 

BA 1 5 

A 2 

00 



LDX #0 


*T v ™ n „ 

1 U> >lkM '*»' 11 

BA 1 7 

8 6 

C7 



STX REVFLG 


P P* n 

BA 1 9 

L O 




I NY 


7 m 

bA 1 A 

C4 

S:L 



CPY COLCNT 


~r o •• 

.C. O -J a 

BA 1 U 

90 

EC 



BCC MSGP3 


-nqf) a 

BA 1 E 

6 8 




P L A 


•**r .**. _ 

BA 1 F 

10 

03 



BPL MSG DON 


33 1 0 s 

DA- 1 7 1 
DMI . 1 . 

Si 2 

-u*. -*.* 

6D 

BS 


JSR BEEP 


3320 s 

BA24 

A 9 

9F 


MSG DON 

LDA #159 

; CY AN 

3330 s 

B H ^ o 

4C 

1 6 

|*»H •*»■* 

j:l / 


JMP SC ROUT 

; PRINT & RETURN 






H 

; MESSAGES 







„ pip sj 

= HIGH BIT - 

0 TOP 






n 

H 

— 

1 BOTTOM 






rt 

5 

REST - L.ENG 

TH OF STRING 






«I 

; SECOND 

= HIGH BIT - 

0 ERROR 






11 

ff 


1 MESSAGE 






n 

? 

REST - LEFT 

M ARG I N 

3440: 

BA29 




MSGTBL 

;;;;; 


3450: 

BA 29 

•"“i i::r 
A <~J 

M V 

*H* 4.** 



CiVT Al-' T v 

U JL*. T 1 1 7* ***** w *1 ***** 

* 1 

If *1* 

3460 £ 

BA2B 

PA 

W W 

cr; “7 

4 4 


. ASC ” — WD l WD ST NG iRT LT SU X *VG" 

3470 £ 

BA4E 

93 

SB 



.BYT $93,f8B 

If •&**• 

34 SO s 

BA 50 

42 

45 

4 7 


„ ASC n BEG INN 

I NG OF FILE" 

3490 £ 

BA6 i 

8D 

8E 



a BYT $8D ? $8E 

“f 

3500 s 

BA 63 

.q nr 
*T vJ 

4E 

4 4 


.ASC "END OF 

F I L.E n 

35 1 0 £ 

BA6E 

8D 

**♦♦ ***** 
o b 



.BYT *8D,*SE 

; 4 

« 

V W 4*** ■-* « 

BA70 

4D 

45 

4D 


» ASC “MEMORY 

FULL" 

• <lti <MH >llt< H 

oboU £ 

bH / b 

SC 

SF 



„ BYT $8C f $8F 

« ‘““j 

U ‘..J 

3540 s 

r;» /% 

bH / JL? 

45 

4D 

50 


.ASC) "EMPTY 

!»*•♦ T * t*‘“ 1 • 

b ILL 

-Tcr cr „ 
■«' w w a 

BAS 7 

9B 

“*y 

o / 



a BY ( :?• 7 B i, '^8 7 

; 6 

p-5pO s 

BA 89 

54 

***** Hti 

HM 

w / 

50 


a Hob i Y r CL 

Y ’ TO DELETE RECORD" 

-T "7 A « 

W II 

b hi f*i .tE 

99 

.“A A". 

o o 



« BYT $99 h $*S8 

a 'J 


•3580 s 

•••» »• »\ »| 

dHH4 

4E 

4F 

•n* •• 

V () 

11 

A C L 

' ' N 0 S E A R C H K E Y S P E C I F I E D ' ' 

'•ViwO « 

’,h‘ m ; '«• u 

B A B B 

j ***. 

1 R 

08 


it 

BYT 

$ 1 A q 8 jl tJ 

■ n •• 

•«.* U. ( n 

babd 

4-3 

nr n 

1 ** 

Vm« tl*** 

45 

a 

A r"- 

s * *•*• **•♦ 

"CREATE DATA ENTRY SCREEN" 

3610; 

BADS 

A .3 

04 


n 

BYT 

> ■■ •• *•*• 
4 2 9 

3620 5 

BAD7 

45 

4E 

54 

a 

A SC 

" E N T E R S E A R C H K E Y T H E N P R E S S < F 1 > ' 1 

«ll>l » ItiM 

•3 <b -3 U £ 

BAFT 

9 F 

Ob 


n 

p V T 

L- i i 

^9F ? 5 5 10 

3640 s 

BAF9 

50 

!«. * « 

***** 4n» 

45 

12 

R b C 

"PRESS < F 1 > TO CONTINUE SEARCH" 

.3 to to O 2 

BE 16 

9C 

Q7 
O / 

H 

tt 

BYT 

$9C,*87 ill 

•**r ,♦ ***^ .**, 

*•, / * i u 

‘••** W / '«• tt 

BB18 

4D 

E.T IX" 

•3 wf 

Jnt* ***|* 

■3 .3 
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